let evaluate str =
str;;
try
while true do
print_string "> ";
let line = read_line () in
let answer = evaluate line in
print_endline answer
done;
with
End_of_file -> print_endline "Bye!";;