sig   val cut_ext : Omod.fpath -> string * string   val catch_sys_error :     (unit -> ('a, string) Pervasives.result) ->     ('a, string) Pervasives.result   val with_open_in :     string -> (Pervasives.in_channel -> 'a) -> ('a, string) Pervasives.result   val with_open_out :     string ->     (Pervasives.out_channel -> 'a) -> ('a, string) Pervasives.result   val to_string : Omod.fpath -> (string, string) Pervasives.result   val of_string : Omod.fpath -> string -> (unit, string) Pervasives.result   val exists : Omod.fpath -> (bool, string) Pervasives.result   val delete : Omod.fpath -> (bool, string) Pervasives.result end