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