open Toytt

let parse (s : string) : Ast.expr =
  let lexbuf = Lexing.from_string s in
  let ast = Parser.parse Lexer.lex lexbuf in
  ast

let rec repl () =
  let input = read_line () in
  let ast = parse input in
  Format.printf "%a\n%!" Ast.dump_expr ast;
  repl ()

let () = repl ()