concrete GreetingsIta of Greetings = open Prelude in {

lincat 
  Greeting = SS ;

lin 
  GBye = ss "ciao" ;
  GCheers = ss "cincin" ;
  GDamn = ss "maledizione" ;
  GExcuse = ss "scusa" ;
  GExcusePol = ss "scusi" ;
  GGoodDay = ss "buongiorno" ;
  GGoodEvening = ss "buona sera" ;
  GGoodMorning = ss "buongiorno" ;
  GGoodNight = ss "buona notte" ;
  GGoodbye = ss "arrivederci" ;
  GHello = ss "ciao" ;
  GHelp = ss "aiuto" ;
  GHowAreYou = ss "come sta" ;
  GLookOut = ss "attenzione" ;
  GNiceToMeetYou = ss "piacere di conoscerti" ;
  GNiceToMeetYouPol = ss "piacere di conoscerLa" ;
  GPleaseGive, GPleaseGivePol = ss "per favore" ;
  GSeeYouSoon = ss "a presto" ; ----
  GSorry = ss "scusami" ; ----
  GSorryPol = ss "scusimi" ; ----
  GThanks = ss "grazie" ;
  GTheCheck = ss "il conto" ;

}