(define say-hello
  (λ () (print "hello, world")))

(define map1
  (λ (f lst)
    (if (eq? lst '())
        '()
        (cons (f (car lst)) (map1 f (cdr lst))))))