sig val is_white_space : Uchar.t -> bool end