let
of_char c =
C_init_noesc
(
V
.of_char c)