void mess(long[],CHAR_INT,long[]);
void sinto(long,float[]);
void smess(long[],CHAR_INT,long[],float[]);