(define println
    (lambda (s)
        (print
            (append s "\n"))))

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