incomplete concrete PeaceCatI of PeaceCat = Cat ** open Cat in {

  lincat
    MassN = N ;

}