concrete GreetingsSwe of Greetings = open Prelude in {

lincat 
  Greeting, Politeness = SS ;

lin 
  GHello = ss "hej" ;
  GThanks = ss "tack" ;
  GHowAreYou = ss "hur står det till" ;
  GPleaseGive = ss "var så god" ;
  GExcuse = ss "ursäkta" ;
  GSorry = ss "förlåt" ;
  GGoodbye = ss "hej då" ;
  GBye = ss "hej då" ;
  GWhatsYourName = ss "vad heter du" ;
  GNiceToMeetYou = ss "trevligt att träffas" ;
  GSeeYouSoon = ss "vi ses snart" ;
  GHelp = ss "hjälp" ;
  GLookOut = ss "se upp" ;
  GGoodMorning = ss "god morgon" ;
  GGoodDay = ss "god dag" ;
  GGoodEvening = ss "god afton" ;
  GGoodNight = ss "god natt" ;
  GImHungry = ss "jag är hungrig" ;
  GImThirsty = ss "jag är törstig" ;
  GImTired = ss "jag är trött" ;
  GImScared = ss "jag är rädd" ;
  GIdontUnderstand = ss "jag förstår inte" ;
  GTheCheck = ss "notan" ;

  GYes = ss "ja" ;
  GNo = ss "nej" ;


}