sub is-odd(Int $n) { if $n % 2 == 0 { return False; } True; } is-odd(3) or die "Wrong status";