concrete WeekdayFin of Weekday = open LangFin, ParadigmsFin in {

  lincat 
    WDay = PN ;

  lin
    Mon = mkPN (regN "maanantai") ;
    Tue = mkPN (regN "tiistai") ;

}