var s:string;n:word;begin repeat read(n);s:="";repeat s:=chr(48+15and n+ord(15and n>9)*7)+s;shr(n,4)until n=0;writeln(s)until 1=0end.
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page