expand text by uru

var n,i,j,k:word;s:string;begin
readln(n);read(s);for i:=1to n do begin for j:=1to length(s)do
for k:=1to n do write((^`+s[j]+s[j])[1+card([1,n]*[i,k])]);writeln end;end.

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

download

return to the top page