Kimariji by clock

s=charin(,,1e4)
do 100
n=1
do 11
t="A"x||left(s,n)
n=n+(0<pos(t,s))
end
s=subword(s,2)||t
end
say s

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

download

return to the top page