anchor.diff:  
       [<EntryPoint>]
       let main args =
  -        VirtualBox.createVM "runner"
  +        let vmName = "runner"
  +        VirtualBox.createVM vmName
           let allDrives = DriveManager.getDrives()
  -        let selectedDrive =
  +        let selectedPartition =
               allDrives
               |> List.map (fun drive -> drive.partitions)
               |> List.concat
  -            |> List.map (fun partition -> (
  -                sprintf "%s\t(%s, %s)" partition.device partition.size partition.filesystem,
  -                partition
  -            ))
  +            |> List.map (fun partition ->
  +                (
  +                    sprintf "%s\t(%s, %s)" partition.device partition.size partition.filesystem,
  +                    partition
  +                )
  +            )
               |> promptDevices
  -        printfn "%A" selectedDrive
  -        VirtualBox.deleteVM "runner"
  +        selectedPartition
  +            |> VirtualBox.mountSpinRite vmName
  +        VirtualBox.deleteVM vmName
           0
  
positive.code:         let selection = System.Console.ReadLine()
  
          match (System.Int32.TryParse(selection)) with
          | (true, i) when i < List.length devices -> devices.[i]
          | (false, _)
          | _ ->
              printfn "You must select at least one device"
  
negative.code:         match proc.ExitCode with
          | 0 -> Success output
          | _ -> Failure (output, proc.ExitCode)
  
  module DriveManager =
      open NLog
  