1 2 3 4 5 6 7 8 9 10 11 12
--# -path=.:..:present:prelude concrete PeacePhrases_Swe of PeacePhrases = PeaceCat_Swe ** open CommonScand, PeaceRes in { lin Hello = stop "hej" ; GoodMorning = stop ["god morgon"] ; GoodEvening = stop ["god kväll"] ; WhatIsNamePron p = stop (["vad heter"] ++ p.s!NPNom) ; }