>>577 Perl

($D, $W) = split ' ', <>;
%h = map{$_=>++$i} (@a = qw{Sun Mon Tue Wed Thr Fri Sat});
print "$a[($h{$W} - $D%7) % 7]\n";