;; list test 3 (bind-func lt3 (lambda () (let ((l1 (Cons 1 (Cons 2 (Nil)))) (l3 (fmap (lambda (x) (Cons x (Cons x (Nil)))) l1))) (println 'l3 '= l3))))