(* 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
			let result = eval expr in
			print_endline (String.concat "Result:" result); flush stdout
		done
	with Scanner.Eof ->
			exit 0

