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