The cube

[Gloom]

Please monks, be indulgent, it's my first (KUBIK) attempt...

#!/usr/bin/perl


     {{{{{{{{{{{{{{{{{{{{{{{
     $a=0;print pack"C*",map
     {  $a += $_ ; }  qw( 74
     43 -2 1  -84 33 45 1  5
     -12 -3 13 -104 70 21 13
     -6 -76 44 35 7  -17  13
     -104 22 63 -63 0 63 -63
     -22 37 -15  60  -45 -15
     60  -82  82  -44 -16 16
     -16 15 -37  22 60 3 -51
     3 -37 22 0 60 -45 -37);
     }}}}}}}}}}}}}}}}}}}}}}}