#!perl -lpa ($n,$m,$_)=@F;$_+=$n--*$m--while$n*$m