sub div-e-resto(Supply $divisor, Supply $dividendo) { my $zip = Supply.zip($divisor, $dividendo); ( $zip.map(-> [$a, $b] { $a div $b }), $zip.map(-> [$a, $b] { $a % $b }) ) } my ($s1, $s2) = div-e-resto(Supply.from-list(10 .. 19), Supply.from-list(1 .. 10)); $s1.tap: -> $val { say "s1: $val" }; $s1.tap: -> $val { say "s2: $val" }