open Ast

let rec eval = function
		Lit(x) -> x		
	| Binop(e1, op, e2) ->
			let v1 = eval e1 and v2 = eval e2 in
			match op with
				Add -> "<>"

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 (result); flush stdout
		done
	with Scanner.Eof ->
			exit 0

