concrete GreetingsCat of Greetings = open Prelude in {

lincat 
  Greeting = SS ;

lin 
  GBye = ss "adéu" ;
  GCheers = ss "salut" ;
  GDamn = ss "merda" ;
  GExcuse = ss "perdona" ;
  GExcusePol = ss ("perdoni" | "disculpi") ;
  GCongratulations = ss "felicitats" ;
  GHappyBirthday = ss "feliç aniversari" ;
  GGoodLuck = ss "sort" ;
  GGoodDay = ss "bon dia" ;
  GGoodEvening = ss "bona tarda" ;
  GGoodMorning = ss "bon dia" ;
  GGoodNight = ss "bona nit" ;
  GGoodbye = ss "a reveure" ;
  GHello = ss "hola" ;
  GHelp = ss "socors" ;
  GHowAreYou = ss "quč tal" ;
  GLookOut = ss "compte" ;
  GNiceToMeetYou = ss "encantat de cončixer-lo" ; -- make distinction Masc/Fem
  GPleaseGive = ss "si et plau" ;
  GPleaseGivePol = ss "si us plau" ;
  GSeeYouSoon = ss "fins aviat" ; 
  GSorry = ss "perdoni" ;
  GSorryPol = ss "em sap greu" ; 
  GThanks = ss "grŕcies" ;
  GTheCheck = ss "el compte" ;

}