#(format #t"~{~aday 
~}"'(Mon Tues Wednes Thurs Fri Satur Sun))