concrete AdverbAra of Adverb = CatAra ** open ResAra, Prelude in {
  flags coding=utf8;

  lin

    PositAdvAdj a = {s = a.s ! APosit Masc Sg Indef Acc} ;
    -- ComparAdvAdj cadv a np = {
    --   s = cadv.s ++ a.s ! AAdv ++ "مِنْ" ++ np.s ! Gen
    --   } ;
    -- ComparAdvAdjS cadv a s = {
    --   s = cadv.s ++ a.s ! AAdv ++ "مِنْ" ++ s.s
    --   } ;

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

    AdAdv ad av = cc2 av ad ;

    -- : Subj -> S -> Adv ;              -- when she sleeps
    SubjS subj s = {s = subj.s ++ s.s ! subj.o} ;

--    AdvSC s = s ; --- this rule give stack overflow in ordinary parsing

    AdnCAdv cadv = {s = cadv.s ++ "مِنْ"} ;

}