(define println
(lambda (s)
(print
(append s "\n"))))
(define repl
(lambda () (
(print "λ -> ")
(println
(append
("val -> "
(eval (read)))))
(repl))))
(repl)