{
    my $closure;
    sub x1 { $closure = shift if @_; $closure }
}