cn(park,n,[],[],7,8)
cn(park,n,[sub(\(A,@(*(A),^(j))),B,m),sub(\(C,@(*(C),^(m))),D,f)],[],7,8)
cn(park,n,[sub(\(A,@(*(A),^(j))),B,m)],[],7,8)
cn(park,n,[sub(\(A,@(*(A),^(m))),B,f)],[],7,8)