package Lambda;

use strict;
use warnings;

use Exporter qw( import );

our @EXPORT = qw( lambda );

sub lambda(&) {
    my ($f) = @_;
    return sub {
        return $f->() for $_[0];
    }
}

1;