1 2 3 4 5 6 7 8
--# -path=.:..:present:prelude concrete PeaceSpoken_Fin of PeaceSpoken = Peace_Fin ** { flags startcat = PhraseSpoken ; }