($mon, $tue, $wed, $thu, $fri, $sat, $sun) = split (/ /);
$alldays = lc($mon $tue $wed $thu $fri $sat $sun);
print "$alldays\n";