--# -path=.:present:prelude

concrete PeaceCat_Fin of PeaceCat = PeaceCatI with (Lang = LangFin);