let to_string_hum l = sprintf "%S" (to_native_string l)