:- initialization(main).

main :-
	read_from_chars("%",T),
	write(T), nl.