let of_string ?(squeeze=true) ?(d=' ') x = 
 List.map (split ~squeeze ~d) (of_string x)