Implement 'find' in Scheme

[Katie Burke]

find should return the first element of list for which procedure returns true, or #f.
http://www.scheme.com/tspl4/objects.html#./objects:s57
This example should return 1.

(find odd? '(1 2 3 4))

Traceback (most recent call last): File "stdin", line 1, col 2 RunTimeError: unbound variable 'find'