if ($h > 0 and $h <= 16 and $h % 2 == $h < 9) { my $n = int(($h + 1) / 2); $j = $h + $n; $p = 0 + ! ($n % 2); $v = $n + (8 * ($h < 10)); }