#!/usr/bin/perl while(){ $r=0; ($m,$n) = split(" "); while($m * $n > 0 ){ $r += $m * $n; $m --; $n --; } print "$r\n"; }