function o=max(A,B,DIM), 
	if nargin==2 && ~isempty(B), o=binfun(A,B,@max,@(a,b)sprintf('max(%s,%s)',a,b));
	else 
		if nargin<3, o=map(@max,A);
		else o=map(@(x)max(x,[],DIM),A);
		end
	end
end

