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

