s(@(@('date*',*(A)),*(A)),[],[sub(\(B,@(*(B),^(j))),A,m)],0,3)
s(@(@('date*',j),j),[],[],0,3)
