concrete WeekdaySwe of Weekday = open LangSwe, ParadigmsSwe in {

  lincat 
    WDay = PN ;

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

}