--# -path=.:present:prelude

concrete DialogueFin of Dialogue = DialogueI with 
  (Lang = LangFin) ;