my($a, $b);
$a = $a * $b;
$b = $a * $b * 2
