ktRolster

    ktString {
       int len;
       int memlen;
       char *str;
    }

    bool ktStrcat(ktString s1, ktString s2);
    bool ktSprintf(ktString s1, ...);

     #define ktCstr(x) (x)->str

    write(sock, ktCstr(s), s->len);

    char *g = " S   -> WORD | WORD , S;"
              "WORD -> [^,]";
    results = parsegram(g, inputString);