for$n($\++..100){$p{$n}=$\=$p{$n-((3*$_-1)*$_/2||1)}-$\.$/for-8..9;$n&&print"p($n)="}