let
break_string s =
let
n = strlen s
in
for
i = 0
to
n - 1
do
pf
"%d "
(int_of_char s.[i])
done