begin
comment get code of symbol (procedure decode() );
	string (1) ch;
	integer n;
start:;
	read (ch);  write(ch);
	n :=  decode(ch); write (n);
	goto start;
end.