1-module(repl). 2 3-export([run/0]). 4 5run() -> 6 read_eval_process(). 7 8read_eval_process() -> 9 Line = io:get_line("> "), 10 Out = process_line(Line), 11 io:format("< ~s~n~n", [Out]), 12 read_eval_process(). 13 14process_line(Line) -> 15 string:uppercase(Line).