$s=;$m=" #"x($s-1);$n=" ##"x$s;print " ",$n,"\n #",($m."\n#")x3,$m,"\n #",$m,"\n ",$n,"\n";