anchor.diff:      MarkSix.checkResults defaultErrorHandler >> ValidationResult.traverse
   
   let printPrizes = function
  -    | Success l -> List.iteri (fun i -> printfn "Your prize for draw #%i is %A" (i + 1)) l
  +    | Success l -> List.iteri (addOne >> printfn "Your prize for draw #%i is %A") l
       | Error e -> printfn "%A" e
positive.code: open Rexcfnghk.MarkSixParser
  open ErrorHandling
  open MarkSixNumberReader
  
  let markSixNumberReader _ =
      readMarkSixNumber ()
  
negative.code: 
  let getMultipleUsersDraw' () =
      printfn "Enter users draw(s)"
  
      let printUsersDrawLength list = 
          list |> (List.length >> printfn "You entered %i user's draw(s)")
  