--# -path=.:../common:../abstract

concrete ExtendHun of Extend = CatHun
  -- ** ExtendFunctor - []
  -- with (Grammar=GrammarHun)
  ** open Prelude, ResHun, NounHun in {

lin
    TPastSimple = {s = []} ** {t = Past} ;   --# notpresent

} ;
