let of_native_char x = Some (int_of_char x)