anchor.diff:          if count = maxCount
           then acc |> Seq.toList
           else
  -            let innerSuccessHandler = successHandler count
  -
  -            innerSuccessHandler
  -            <!> createFromGetNumber ()
  +            createFromGetNumber ()
               >>= addToHashSet acc
               |> ValidationResult.doubleMap ignore errorHandler
   
  
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: [<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) =
  