--# -path=.:present:prelude

concrete PeaceLexCommon_Swe of PeaceLexCommon = 
  PeaceCat_Swe ** PeaceLexCommonI with 
  (Lang = LangSwe), (Constructors = ConstructorsSwe) ; ;