Select Code to Download

print+                      join $
   x,@$_,                $/for  map{@
...
         (j,a,p     ,h)[@            $a%4]
           :$"}+  @$_],                $b++]
              }([1..                     80])x16;

                                          hjaphjaphj                  
+          
                                       japhjaphjaphjap                
+          
...
aphjaphj              hjaphjaphjaphjaphjaphjaphjaphjaphjaphjaphjaphjap
+ 
aphjaphjap          aphjaphjaphjaphjaphjaphjaphjaphjaphjaphjaphjaphjap
+ 
aphjaphjaphjaphjaphjaphjaphjaphjaphjaphjaphjaphjaphjaphjaphjaphjaphjap
+