sub lambda {
    my $f = $_[1];
    my $xr = \$_[0];
    return sub {
        local $$xr = $_[0];
        return $f->();
    }
}