1 n "DoFiBuMePaQoDiFuBeMaPoQiDuFeBaMoPiQuDeFaBoMiPuQeDa"2/:A; []:P; 99,{ )):v; "":l;P { . 0 = v \ % { ; } { 1 = l \ + :l; } if } / l "" = { A ( :elem; :A; P [ [ v elem "zz" + :l ] ] + :P; } { } if l n } /
#can't believe that I'm first to post in gs.
Note that non-ascii characters in the above source code will be escaped (such as \x9f).