h :1 /^ $/bn /^ .*/bl /.* $/b s/^\w\|\b\w//g t1 :n g s/^/#/ :3 s/#\(.\)\(.*\) \(.\)\(.*\)/\1\3 #\2 \4/ t3 s/#// :4 s/00/=/g s/0\w/</g s/\w0/>/g y/123456789/012345678/ /\w/b4 s/ //gm s/=*// /^>/b /^</bl g;s/ / = /p;d :l g;s/ / < /p;d : g;s/ / > /p;d
Note that non-ascii characters in the above source code will be escaped (such as \x9f).