(%stdin)(r)file dup token pop{{1 index token pop dup =only 1 index string cvs( )print length sub}loop}stopped
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page