sub new {my $f; bless \$f => shift; $f -> set(@_) if @_; $f}