print+                      join $
   x,@$_,                $/for  map{@
     $_->[0            ]}map      {[[map
      {push@          $a,1;        int 8
       *sin $_       *.1==          $b-8?
         (j,a,p     ,h)[@            $a%4]
           :$"}+  @$_],                $b++]
              }([1..                     80])x16;