sub FETCH { my ($this, $key)=@_;
 return $this->{'l'}{$key} if exists $this->{'l'}{$key};
 my $v=eval($this->{f}{$key});
 return $this->{'l'}{$key}=$v;
}