foreach my $k ( sort keys %GRAMMAR ) {
  print "$k\n";
}