anchor.diff:      member val GameID = 0 with get, set
       member val Name = "" with get, set
   
  -    member this.ToLessonEntry() = 
  +    member this.ToLessonRecord() = 
           { LessonRecord.ID = this.ID; GameID = this.GameID; Name = this.Name }
   
       static member FromLessonRecord(le: LessonRecord) = 
  
positive.code:     member val ID = 0 with get, set
      member val Name = "" with get, set
  
      member this.ToGameEntry() = 
          { GameRecord.ID = this.ID; Name = this.Name }
  
      static member FromGameRecord(ge: GameRecord) = 
  
negative.code:     let calculateKeyHash(key: string) = key.GetHashCode()
  
      member this.Games = 
          db.Query<GameEntry>("select * from GameEntry") |> Seq.map(fun t -> t.ToGameRecord()) |> Array.ofSeq
  
      member this.Lessons = 
          db.Query<LessonEntry>("select * from LessonEntry") |> Seq.map(fun t -> t.ToLessonRecord()) |> Array.ofSeq
  
      member this.Cards = 
          db.Query<CardEntry>("select * from CardEntry") |> Seq.map(fun t -> t.ToCardRecord()) |> Array.ofSeq
  