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