anchor.diff:          let selection = System.Console.ReadLine()
   
           match (System.Int32.TryParse(selection)) with
  -        | (true, i) when i < List.length devices -> devices.[i]
  +        | (true, i) when i < List.length devices ->
  +            devices.[i]
  +            |> (fun (_, device) -> device)
           | (false, _)
           | _ ->
               printfn "You must select at least one device"
  
positive.code:                 parseDrives output
          )
  
  module main =
      open NLog
      open DriveManager
  
negative.code:         match proc.ExitCode with
          | 0 -> Success output
          | _ -> Failure (output, proc.ExitCode)
  
  module DriveManager =
      open NLog
  