@0=map{$n-=$_*=-1or()}@0,(0*print"@0
")x$_,@0for(@0=1)..10