cn(park,n,[],[],4,5)
cn(park,n,[sub(\(A,@(*(A),^(j))),B,m)],[],4,5)