cicmp
extern bool cicmp(const char *);
if (cicmp("program") || cicmp("procedure"))
if (cicmp("subroutine"))
if (cicmp("complex") || cicmp("character"))
if (cicmp("double")) {
if (cicmp("precision"))
if (cicmp("integer"))
if (cicmp("logical"))
if (cicmp("real"))
if (cicmp("function"))
if (!cicmp("(def"))
if (cicmp("method"))
if (cicmp("wrapper") || cicmp("whopper"))