let array_of_chars s =  init (String.length s) (fun i -> s.[i])