concrete WeekdaySwe of Weekday = open LangSwe, ParadigmsSwe in {

  lincat 
    WDay = PN ;

  lin
    Mon = regGenPN "måndag" utrum ;
    Tue = regGenPN "tisdag" utrum ;

}