let remove_file filename =
  if is_file filename
  then
    (try Sys.remove filename
     with | e -> error ~opn: "remove_file" ~fn: filename ~e)
  else failwith (Printf.sprintf "Filew.remove_file: not a file: %S" filename)