$s  = <>;
@a =map {  [ (0) x $s ] } 1 .. $s;
$a[-1] = $a[0] = [ (1) x $s];
map { $a[$_][-1] = $a[$_][0] = 1 } 0 ..  ($s - 1);
$"="";
print "@$_\n" for @a;