Untitled
12345
include prelude,random;randomize()
var
d="Mon Tues Wednes Thurs Fri Satur Sun".split
p=stdin.readline.split.mapit it[0..1]
for w in 0..6:echo d[(w+mapIt(d,it[0..1]==p[0]).find on)%%7],"day ",20.rand+{"Sp":10,"Su":20,"Au":5,"Fa":5,"Wi": -5}.toTable[p[1]]
Nim
INFO