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