$a=($i=<>)*3;$t.=$t=($s='   'x$b).'#  'x--$a."#
",$_=($r=$s.' ##'x$a."
").($b++?"$t$_$t$r":"$t$r"x$i)while$a-->$i;print