let _ =
	try
		let lexbuf = Lexing.from_channel stdin in
		while true do
			let result = Parser.main Scanner.token lexbuf in			
			print_string(result); print_endline(); flush stdout
		done
	with Scanner.Eof ->
			exit 0

