let of_charlist = List.fold_left  (fun s c -> (s^(Char.escaped c))) ""