let os_depend unix macos win32 cygwin =
    match Sys.os_type with
      "Unix"   -> unix
    | "MacOS"  -> macos
    | "Win32"  -> win32
    | "Cygwin" -> cygwin
    | s        -> raise (FilePathUnrecognizedOS s)