sub max{$_[0]=$_[$_[0]<$_[1]]} ($n,$m,$\)=glob<>; $b{0,300}=$\; map{ for$i(0..$m-1){ for$j(100..300){ $j<$_?max($\,max($b{$i+1,300},int($b{$i,$j}/$j)*$_+$b{$i,$j}%$j)):max($b{$i,$_+0},$b{$i,$j}); } } }<>;print