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