--# -path=.:present:prelude

concrete PeaceCat_Swe of PeaceCat = PeaceCatI with (Lang = LangSwe);