concrete WeekdayGodis of Weekday = open ResGodis, Prelude in {

  lincat 
    WDay = SS ;

  lin
    Mon = ss "monday" ;
    Tue = ss "tuesday" ;

}