function o=mean(A,DIM), 
	if nargin<2, o=map(@mean,A);
	else o=map(@(x)mean(x,DIM),A);
	end
end

