(%stdin)(r)file 80 string readline pop dup length -1 0{1 1 3 index length 3 index sub{3 copy getinterval = pop}for pop}for
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page