(letrec 
    [(or (lambda (x y) (if x then true else y)))
     (member (lambda (x lst) 
               (if (null? lst)
                   false
                   (or (equal? x (first lst))(member x (rest l))))))]
  (member 1 (cons 1 null)))