cheesebot/ocaml/shell.ml

open Str


let () =
  try
    while true do
      print_string "> ";
      let line = read_line () in
      match Evaluate.evaluate line with
      | Some answer -> print_endline answer
      | _ -> ()
    done
  with
    End_of_file -> print_endline "Bye!";;