sub fib (Int $n) returns Void { my Int ($a, $b) = 0, 1; while $a < $n { say $a; ($a, $b) = ($b, $a + $b); } }