(* Interpreter *)

open Ast

let rec eval = function
		Lit(x) -> "<>"


let _ =
	try
		let lexbuf = Lexing.from_channel stdin in
		while true do
			let expr = Parser.expr Scanner.token lexbuf in
			print_endline("expr is: " ^ expr);
			let result = eval expr in
			print_endline("Result" ^ " is: "); flush stdout
		done
	with Scanner.Eof ->
			exit 0

