anchor.diff:          AppDomain.CurrentDomain.BaseDirectory
           "airports.csv"
   
  -let processAirports args =
  +let processAirports (args : ParseResults<_>) =
       let filters =
  -        args
  +        args.GetAllResults()
           |> List.choose (function
               | Min          (Time t)   -> Filter.MinTime t            |> Some
               | Max          (Time t)   -> Filter.MaxTime t            |> Some
  
positive.code:                 | AutoUpdate _   -> "set whether or not airport data will be automatically updated"
                  | MaxRoutes _    -> "set the maximum number of routes to display"
  
  let (|Time|_|) v =
      match TimeSpan.TryParse v with
      | (true, x) -> Some x
  
negative.code:         |> Seq.toArray
  
      let routeInfo = {
          Mach     = getArgValue <@ Mach @> args
          Filters  = filters
          SortType =
              args
              |> tryGetArgValue <@ Sort @>
              |> Option.bind Route.getSortType
              |> Option.defaultArg Time
          SortOrder =
              args
              |> tryGetArgValue <@ SortOrder @>
              |> Option.bind Route.getSortOrder
              |> Option.defaultArg Ascending
      }
  
      let result =
          let departure = tryGetArgValue <@ Departure @> args
          let maxRoutes = tryGetArgValue <@ MaxRoutes @> args
  
          match departure with
          | Some dep -> Route.filterAndDisplay maxRoutes routeInfo dep airports
  