concrete AdverbDan of Adverb = CatDan ** AdverbScand with
  (ResScand = ResDan) ;