Select Code to Download

sub curry2 {
    my ($fn, $argstack) = @_;

...
        }
    };
}

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