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

	defined $argstack or $argstack = [];

	return sub {
		my $arg = shift;
		if (defined $arg) {
			return curry2 ($fn, [@$argstack, $arg]);
		} else {
			$fn->(@$argstack);
		}
	};
}
##</code><code>##

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