RosettaCodeData/Task/Function-composition/Perl-6/function-composition-1.pl6

sub infix:<∘> (&f, &g --> Block) {
    -> $args { f g |$args }
}