my %type;
     @type{qw(AB AC AD AE FG)} = (0) x 5;