let basename = Pcre.replace ~rex:trailing_dot_gz_RE fname in
assert (basename <> fname);
let (ic, oc) = (Gzip.open_in fname, open_out basename) in
let basename = Pcre.replace ~rex:trailing_dot_gz_RE fname in
assert (basename <> fname);
let (ic, oc) = (Gzip.open_in fname, open_out basename) in