anchor.diff:      let today = DateTime.UtcNow.Date
       async {
           use context = new EvilPlannerContext ()
  +        let! existingQuote = getDailyQuote context date
           if today <> date
           then
  -            return! getDailyQuote context date
  +            return existingQuote
           else
  -            let! currentQuote = getDailyQuote context today
  -
  -            match currentQuote with
  +            match existingQuote with
               | Some(q) -> return Some q
               | None    ->
  -                use transaction = context.Database.BeginTransaction()
  -                let! quoteOrError = Async.Catch <| createQuote context transaction today
  +                let! quoteOrError = Async.Catch <| createQuote context today
                   let quote =
                       match quoteOrError with
                       | Choice1Of2 q -> async { return Some q }
  
positive.code:         context.DailyQuotes.Add dailyQuote |> ignore
  
          do! saveChangesAsync context
          transaction.Commit()
  
          return quotation
      }
  
negative.code: 
  /// Creates quote for the current date. Can throw an UpdateException in case when the quote was
  /// already created by the concurrent query.
  let private createQuote (context : EvilPlannerContext) date =
      async {
          // TODO: Optimize this randomization
          let count = query { for q in context.Quotations do count }
  