changed the type names a -> First etc.

all typenames now capitalized;
this ties in with the change to m2decs.c that replaced
things like {type}_is_{shape} with {type}Is{shape} -
so it looks better if type and shape names are capitalized

test/m2data.in

@@ -4,15 +4,15 @@ TYPE
 }
 
 TYPE {
-n = a | b | c | d | e;
-o = a( int aa );
-p = a | b;
-q = a | b | c( int cc ) | d | e;
-r = a | b | c( int cc ) | d( string dd ) | e;
-s = a(int aa) | b | c | d | e;
+First = A | B | C | D | E;
+Second = A( int aa );
+Third = A | B;
+Fourth = A | B | C( int cc ) | D | E;
+Fifth = A | B | C( int cc ) | D( string dd ) | E;
+Sixth = A( int aa ) | B | C | D | E;
 
-intlist = null "null" | cons( int first, intlist next ) 1 " , " 2;
-illist  = null "null" | cons( intlist first, illist next ) "[ " 1 " ] , " 2;
-idtree  = leaf( string id, intlist l ) "leaf( '" 1 "', [ " 2 " ] )"
-	| node( idtree left, idtree right ) "node( " 1 " , " 2 " )";
+IntList = Null "null" | Cons( int first, IntList next ) 1 " , " 2;
+ILList  = Null "null" | Cons( IntList first, ILList next ) "[ " 1 " ] , " 2;
+IdTree  = Leaf( string id, IntList l ) "leaf( '" 1 "', [ " 2 " ] )"
+	| Node( IdTree left, IdTree right ) "node( " 1 " , " 2 " )";
 }