renamed GetKind{Type} -> {Type}Kind; called the enumated type KindOf{Type}; had to use various nasty VAL/ORD gubbins to make it all work