anchor.diff:  [<Literal>]
   let MaxUsersDrawCount = 6
   
  -let getDrawResultNumbers =
  -    let successHandler = function 6 -> ExtraNumber | _ -> DrawnNumber
  -    addUniqueToList MaxDrawResultCount successHandler
  +let getDrawResultNumbers errorHandler getNumber =
  +    addUniqueToList MaxDrawResultCount errorHandler getNumber 
  +    |> List.mapi (fun i e -> if i = 6 then ExtraNumber e else DrawnNumber e)
   
   let getUsersDrawNumber =
  -    let successHandler _ = id
  -    addUniqueToList MaxUsersDrawCount successHandler
  +    addUniqueToList MaxUsersDrawCount
   
   let checkResults errorHandler drawResults usersDraw =
       let allElementsAreUnique (drawResults: 'T list) =
  
positive.code:         |> MarkSixNumber.create
          |> ValidationResult.extract ]
  
  let private addUniqueToList maxCount successHandler errorHandler getNumber =
      let createFromGetNumber = getNumber >> MarkSixNumber.create
  
      let addToHashSet (acc: HashSet<_>) input =
  
negative.code:         if count = maxCount
          then acc |> Seq.toList
          else
              createFromGetNumber ()
              >>= addToHashSet acc
              |> ValidationResult.doubleMap ignore errorHandler
  
  