anchor.diff:          | None ->
               // TODO: Optimize this randomization
               let count = query { for q in context.Quotations do count }
  -            let toSkip = Random().Next count    
  +            let toSkip = Random().Next count
               let! quotation =
  -                query { 
  +                query {
                       for q in context.Quotations do
                       sortBy q.Id
                       skip toSkip
                   } |> headAsync
  -        
  +
               let dailyQuote = DailyQuote(Date = date, Quotation = quotation)
               context.DailyQuotes.Add dailyQuote |> ignore
   
  
positive.code: select q.*
  from DailyQuotes dq with (tablockx)
  join Quotations q on q.Id = dq.Quotation_Id
  ", SqlParameter("date", date))
      |> singleOrDefaultAsync    
  
  let private createQuote (context : EvilPlannerContext) (transaction : DbContextTransaction) date =
      async {
  
negative.code: let getTodayQuote (context : EvilPlannerContext) : Async<Quotation> =
      async {
          let today = DateTime.UtcNow.Date
          let! currentQuote = getDailyQuote context today
  
          match currentQuote with
          | Some(q) -> return q
  