$n=<>-1;print$t=hhhc&3x($_**2-3),('# '|$t)x$n,'# 'for-3..3