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

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