var s:string;i:word=4*random(3);begin repeat inc(i);readln(s);writeln(s:ord(('IHCC\x01\x01\x09>\x03\x02\x01')[i]))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