Select Code to Download

  0  0  0  0 -1
  0  0  0  0
  0  0  0  0 -1
  0  0  0  0
          -1

  1  2  3  4*-1
  0  0  0  5
...
  0  0  0  7
           *
          -1

  1  2  3  4 -1
  0  0  0  5  x
  0  0  0  6 -1
  0  0  0  7  x
  x  x  x -1...

  1  2  3  4 -1
  *
...
 11  0  0  6 -1>
<10  9  8  7  x
  x  x  x -1...

#!/usr/bin/perl -w
use strict;
...
        printf " %".length($v)."d", $_;
    }
}

my @s= ( ( (0)x$n, -1 )x$n, (-1)x$n, -1 );

  0  0  0  0 -1
  0  0  0  0 -1
  0  0  0  0 -1
  0  0  0  0 -1
 -1 -1 -1 -1 -1