concrete AdverbHeb of Adverb = CatHeb ** open ResHeb, Prelude in {

  flags coding=utf8 ;

 lin

   PrepNP prep np = { s = prep.s  ++ (np.s ! Nom).obj} ; 

}