concrete GreetingsSwe of Greetings = open Prelude in {

lincat 
  Greeting = SS ;

lin 
  GBye = ss "hej då" ;
  GCheers = ss "skål" ;
  GDamn = ss "fan" ;
  GExcuse, GExcusePol = ss "ursäkta" ;
  GGoodDay = ss "god dag" ;
  GGoodEvening = ss "god afton" ;
  GGoodMorning = ss "god morgon" ;
  GGoodNight = ss "god natt" ;
  GGoodbye = ss "hej då" ;
  GHello = ss "hej" ;
  GHelp = ss "hjälp" ;
  GHowAreYou = ss "hur står det till" ;
  GLookOut = ss "se upp" ;
  GNiceToMeetYou, GNiceToMeetYouPol = ss "trevligt att träffas" ;
  GPleaseGive, GPleaseGivePol = ss "var så god" ;
  GSeeYouSoon = ss "vi ses snart" ;
  GSorry, GSorryPol = ss "förlåt" ;
  GThanks = ss "tack" ;
  GTheCheck = ss "notan" ;
  GCongratulations = ss "grattis";
  GHappyBirthday = ss "grattis på födelsedagen" ;
  GGoodLuck = ss "lycka till" ; 

}
