w( "Mon" "Tues" "Wednes" "Thurs" "Fri" "Satur" "Sun" "day" )
right-uncons
show-space
itemize
cartesian-product
unlines