let string_of_cpos lexbuf = 
  string_of_pos (cpos lexbuf)