let of_int x =       try Some (char_of_int x) with _ -> None