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