--# -path=.:Shared:Weekday:Time:Channel:User:System

concrete allSwe of all = specUserSwe, specSystemSwe ** {

-- lincat Move = {s : Str} ;
-- lin userMove m = {s = "Användaren:" ++ m.s} ;
-- lin systemMove m = {s = "Systemet:" ++ m.s} ;

}