sub curry {
    my ( $fnc, @arguments ) = @_;

    return sub {
        return &$fnc( @arguments, @_ );
    }
}