load'dates'
exit wd(#~5&=&weekday)(#~13&=&{:"1)todate(+i.&(78161&-))todayno 3{.6!:0''