my $myprint = sub { print @_; }; my $curry = curry2 ($myprint); $curry->("a")->("b")->("c")->();