concrete GreetingsEst of Greetings = SentencesEst [Greeting,mkGreeting] ** open Prelude in {

lin
  GBye = mkGreeting "head aega" ;
  GCheers = mkGreeting "terviseks" ;
  GDamn = mkGreeting "neetud" ;
  GExcuse, GExcusePol = mkGreeting "vabandust" ;
  GGoodDay = mkGreeting "tere päevast" ;
  GGoodEvening = mkGreeting "tere õhtust" ;
  GGoodMorning = mkGreeting "tere hommikust" ;
  GGoodNight = mkGreeting "head ööd" ;
  GGoodbye = mkGreeting "head aega" ;
  GHello = mkGreeting "tere" ;
  GHelp = mkGreeting "appi" ;
  GHowAreYou = mkGreeting "kuidas käsi käib" ;
  GLookOut = mkGreeting "ettevaatust" ;
  GNiceToMeetYou = mkGreeting "meeldiv tutvuda" ;
  GPleaseGive, GPleaseGivePol = mkGreeting "palun" ;
  GSeeYouSoon = mkGreeting "kohtumiseni" ;
  GSorry, GSorryPol = mkGreeting "vabandust" ;
  GThanks = mkGreeting "suur tänu" ;
  GTheCheck = mkGreeting "arve" ;
  GCongratulations = mkGreeting "palju õnne";
  GHappyBirthday = mkGreeting "palju õnne sünnipäevaks" ;
  GGoodLuck = mkGreeting "palju edu" ;
}