--# -path=.:present:prelude

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