begin repeat var c,d:char=char(eoln);read(c);write(pred(c,ord(d)*22):ord(c<>"0"),copy("87654321",58-ord(c)))until 0>0end.
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page