RosettaCodeData/Task/Function-definition/Perl-6/function-definition-3.pl6

sub multiply (Rat $a, Rat $b --> Rat) { $a * $b }