concrete GreetingsFre of Greetings = open Prelude in {

flags coding = utf8 ;

lincat 
  Greeting, Politeness = SS ;

lin 
  GHello = ss "salut" ;
  GThanks = ss "merci" ;
  GHowAreYou = ss "comment ça va" ;
  GPleaseGive = ss "s'il vous plaît" ; ---- politeness
  GExcuse = ss "excusez-moi" ;
  GSorry = ss "pardon" ;
  GGoodbye = ss "au revoir" ;
  GBye = ss "au revoir" ;
  GWhatsYourName = ss "comment vous appelez-vous" ; ---- politeness
  GNiceToMeetYou = ss "enchanté" ; ---- gender
  GSeeYouSoon = ss "à bientôt" ;
  GHelp = ss "au secours" ;
  GLookOut = ss "attention" ;
  GGoodMorning = ss "bonjour" ;
  GGoodDay = ss "bonjour" ;
  GGoodEvening = ss "bon soir" ;
  GGoodNight = ss "bonne nuit" ;
  GImHungry = ss "j'ai faim" ;
  GImThirsty = ss "j'ai soif" ;
  GImTired = ss "je suis fatigué" ; ---- gender
  GImScared = ss "j'ai peur" ;
  GIdontUnderstand = ss "je ne comprends pas" ;
  GWheresTheBathroom = ss "où est la toilette" ;
  GTheCheck = ss "l'addition" ;

  GYes = ss "oui" ; ---- si
  GNo = ss "non" ;


}