(* Interpreter *)

open Ast

let rec eval = function
	Binop(e1, op, e2) -> 
		let e1 = "<" and e2 = ">" in
			match op with
				Html -> e1 ^ "html" ^ e2 
				


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

