Canon (docs.local.chatgpt.apply_patch.Apply

val table : 
  (Core.Uchar.t, Core.Uchar.t, Core.Uchar.comparator_witness) Core.Map.t

val substitute : Core.Uchar.t -> Core.Uchar.t

val normalise : string -> string