PROTOCCALLSFSUB3(KUCLOS,kuclos,INT,STRING,INT)
#define KUCLOS(A1,A2,A3)    CCALLSFSUB3(KUCLOS,kuclos,INT,STRING,INT,A1,A2,A3)

PROTOCCALLSFSUB4(KUOPEN,kuopen,INT,STRING,STRING,PINT)
#define KUOPEN(A1,A2,A3,A4) CCALLSFSUB4(KUOPEN,kuopen,INT,STRING,STRING,PINT,A1,A2,A3,A4)