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