--# -path=.:present:prelude

concrete DialogueFre of Dialogue = DialogueI with 
  (Lang = LangFre) ;