begin
comment separate symbol reading and its EBCDIC code printing;
	string (1) s1;
	integer c;
start:
	read(s1);
	c := decode(s1); comment EBCDIC code;
	write(c);
	goto start;
end.