anchor.diff:  open Suave.Operators
   open Suave.Successful
   open Suave.RequestErrors
  +open Suave.Utils
   open Logger
   open Newtonsoft.Json
   
  
positive.code: let routes = 
      path "/ti" >=> Writers.setMimeType "application/json" >=> request (fun req ->
          let players = req.formData "players"
          match players with
          | Choice1Of2 players -> 
              let resp = 
  
negative.code:         let item = lst.[i]
          lst.[i] <- lst.[j]
          lst.[j] <- item
      
      let ln = lst.Length
      [0..(ln - 2)]                                                   // For all indices except the last
      |> Seq.iter (fun i -> Swap i (ThreadSafeRandom.next i ln))                 // swap th item at the index with a random one following it (or itself)
      lst                                                             // Return the list shuffled in place
  
  let prepareRequest (reqString:string) : string list =
  