asunder by 51b

define(_,`ifelse($1,,,`$1:format(%3d,eval(len($2)-len(translit($2,$1,))))
_(translit($1,A-Za-z,B-Za-z),$2)')')_(A,include(/dev/fd/0))

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

download

return to the top page