concrete GreetingsFin of Greetings = open Prelude in {

lincat 
  Greeting, Politeness = SS ;

lin 
  GBye = ss "hei hei" ;
  GCheers = ss "terveydeksi" ;
  GDamn = ss "hitto" ;
  GExcuse, GExcusePol = ss "anteeksi" ;
  GGoodDay = ss "hyvää päivää" ;
  GGoodEvening = ss "hyvää iltaa" ;
  GGoodMorning = ss "hyvää huomenta" ;
  GGoodNight = ss "hyvää yötä" ;
  GGoodbye = ss "näkemiin" ;
  GHello = ss "hei" ;
  GHelp = ss "apua" ;
  GHowAreYou = ss "mitä kuuluu" ;
  GLookOut = ss "varo" ;
  GNiceToMeetYou = ss "hauska tutustua" ;
  GPleaseGive = ss "ole hyvä" ;
  GPleaseGivePol = ss "olkaa hyvä" ;
  GSeeYouSoon = ss "nähdään pian" ;
  GSorry, GSorryPol = ss "anteeksi" ;
  GThanks = ss "kiitos" ;
  GTheCheck = ss "lasku" ;
}