concrete AdjectiveNno of Adjective = CatNno ** AdjectiveScand with
  (ResScand = ResNno) ;