#!perl -pl $_*=(2*$_+1)*$_++/6