(format t"~@{~@(~A~)day 
~}"'mon'tues'wednes'thurs'fri'satur'sun)