concrete GreetingsIta of Greetings = SentencesIta [Greeting,mkGreeting] ** open Prelude in {

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

}