load "../logo/readline.lg

to _read :str
output :str
end

to _eval :ast
output :ast
end

to _print :exp
output :exp
end

to rep :str
output _print _eval _read :str
end

to repl
do.until [
    localmake "line readline "|user> |
    if not emptyp :line [
      print rep :line
    ]
] [:line = []]
(print)
end

repl
bye