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