concrete AdverbSlv of Adverb = CatSlv ** open ResSlv in {

  lin
    PrepNP prep np = {s = prep.s ++ np.s ! prep.c} ;

}