$a[($_=vec'"DDDDffff\x88fvhf\x87\x88\x88\x88\xaa\x88\x89\x9a\x98\xaa\xaa\xaa\xaa\xcc\x8a\x89\x88\xa8\x89\x88\x88\xaa\xaa\xaa\xba\xca\xcc\xcc\xcc\xee\xcc\xab\xba\xca\xab ',$_,4)/2]+=$_%2+1,$a[$_/2+1]-=$_%2,print"@{[map{$-=$a[$k=$_];map{($c=$-+0-($--=$i++%4*4+2))?$k.lc.$c:()}S,P,D,F}1..7]} "for 0..98
Note that non-ascii characters in the above source code will be escaped (such as \x9f).