operator (m comb n)
  [by 0..~$n] -> #
  when <[](..~$m)> do [$..., by $(last)~..~$n] -> #
  otherwise $!
end comb

(3 comb 5) -> !OUT::write