sub new {
  my $class = shift ;

  local(*NULL);

  my $this = {
  s => \'' ,
  a => [] ,
  h => [] ,
  c => sub{} ,
  g => \*NULL ,
  } ;

  bless($this,$class);
  return( $this ) ;
}