let string = 
  view 
    ~read:string_of_char_ptr 
    ~write:char_ptr_of_string 
    (char ptr)

let string = 
  view (char ptr)
    ~read:string_of_char_ptr 
    ~write:char_ptr_of_string 

Reorder the arguments to `view` to improve the layout (short arguments first).
Reorder the arguments to `view` to improve the layout (short arguments first).
