C4L_DiagnosedSampleData_WL1.fsx

type Rank = int    // <------------------- new type alias

type DiagnosedSampleData =
    { Id : Id
      CarriedBy : Player
      Rank : Rank    // <------------------- New field
      HealthPoints : HealthPoints
      Molecules : MoleculeStorage }
    static member Create (token : Token) =
        { Id = (int <| token.[0])
          CarriedBy = Player.Create (int <| token.[1])
          Rank = (int <| token.[2])    // <------------------- No longer ignored
          // gain : ignore (token.[3]) for wood 1
          HealthPoints = (int <| token.[4])
          Molecules = MoleculeStorage.Create token.[5 .. 9] 
        }