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!";;