(format t"~@{~:(~Aday ~)
~}"'Mon'Tues'Wednes'Thurs'Fri'Satur'Sun)