(* Interpreter *)

open Ast

let rec eval = function
		Html -> "<html>"			


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

