#!/usr/bin/perl -w

use strict;

$_='my@japH=spl it//,"311003103 010"."0101"x(3) ."010     0";my
@japh=map+($_+$ _),7,5,2,4;my@J aph=map+($?=$?? $?+$?     :1),@
     japh;      my@Ja     Ph=sp lit//     ,"JAP H";my     ($jap
     h,$Ja      ph);m     y$jap H=0;m     y$JaP h=$ja     pH;fo
     r$jap      h(@japH){for$Ja ph(1..$japh){pr int(reverse(map
     +($ja      ph[$japH]&$_?$J aPh[$JaPh&3]:"\ 40"),@Japh));$J
     aPh++      ;prin     t"\n" if$Ja           Ph>>2     <<2==
     $JaPh      ;}$ja     pH++, $japH           &=3;}     ';;;;
 s-\s+          --gx;     eval; #JAPH           JAPH!     JAPH!
 #JAPH          JAPH!     JAPH! JAPH!           JAPH!     JAPH!