($Q=
                                'b  inm   ode  (STDIN);$q=
           ##########     "";whi  le(       <>)          {$q
          ##        ##.=$_;fo                              r(;
          ##        len gth                                  ($
          ##      q)>  59               ;      $               q
          ##     =s  ub         s      tr      ($      q        ,6 
         ###   0)   )   {$      z="";forea     c h$   x(un        pa
       ####   ck   "   V      15",  $q  ){$    c  =$  x  %9         0
      ##     ;$   i=  (      $x  / =9    0)   %9 0;$r =($x/=         9
      ##     0    )   %     90  ;$n=($x   /=  9     0)%90;$o   =      $
      ##    x/   90  ;     $z .=p      ack  " C    *",$c+  33  ,      $i
      ##    +   33   ,     $r+      @@@     33   ,$n   +33 ,$  o+    3 3;
      #####}p   r    i    nt"       @@@              @@  $  z  \n    "; }
       ##}$y   =(     4   -l       @@@@             @@@     en gt   h( $q)
        %4     )       &  3;       @@@@             @@@     $ z="   ";  for
     eac       h $x    ( unp       @@@              @@@     a c k"  V     *
","$q         \ 0 \     0\ 0"       @@              @@     ){   $c =$
 x%90;$i=($x/ =9  0)    %9  0                              ;$   r=(
         $x        /=    9                                 0)  %90
        ;$          n=   (                                 $x /=
        9            0)% 90;             $o=$x/           90  ;$
        z     .=p      ack "C*",          $c+3        3,$i+  33,
        $  r+3  3,   $n      +33,$o+33          ;}for(;$y   >0;$
        y--       ){chop$   z;      }print"$z\n";'     )=~s/[
                   #@   `]//g                   ;;eval "  $Q
                                                  "x  1;