for my $t (qw/ INFO BINFO WINFO SCHMINFO /)
{
   no strict 'refs';
   *{lc $t} = sub {
      my $class = shift;
      $class->new( typ => $t, other => "@_" );
   };
}