sig
  val to_filename : OASISTypes.unix_filename -> OASISTypes.host_filename
  val replace : OASISTypes.unix_filename list -> unit
end