Underload interpreter by pooq

var a,b:string;i:word;begin
readln(a);case length(a)of 10:b:=a;77:for i:=1to 120do b:=b+':';18:for i:=1to 27do b:=b+"x"end;write(b)end.

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page