while(<>){
  # if we've got a C-Structure, we drop the S1 and the trailing )
  # this will allow for more intersting and varied top-level constituent
  # sequences
  
  if (($_ =~ /^C-Structure:( )*\(\<S1\> /)||
      ($_ =~ /^C-Structure:( )*\(\S1\ /)){
    
    $_ =~ s/^C-Structure:( )*\(\<S1\> /C-Structure:/;
    $_ =~ s/^C-Structure:( )*\(\S1\ /C-Structure:/;
    $_ =~ s/\)\s*$//;
    print $_ . "\n";
  }
  elsif ($_ =~ /^Type:/){
    print "Type:\n";
  }
  else{
    print $_;
  }

}