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

