$a[($_=vec'"DDDDffffˆfvhf‡ˆˆˆªˆ‰š˜ªªªªÌŠ‰ˆ¨‰ˆˆªªªºÊÌÌÌîÌ«ºÊ«
',$_,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