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