open Lisp.Ast;;
open Printf;;
open Lisp;;
open Eval;;
open Read;;
let rec repl c =
  let () = printf ">>> "; Out_channel.flush Out_channel.stdout; in
  match In_channel.input_line c with
  | None -> ()
  | Some l -> 
    let vals = (parse_str l) in
    (* dbg_print_all vals; *)
    dbg_print_all (eval_all vals);
    Out_channel.flush Out_channel.stdout;
    repl c;;

let _ = repl (In_channel.stdin)