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