function y=incr(y,varargin)
% incr - Increment element of array
%
% incr :: [[N]], 1..N-> [[N]].
% incr :: [[M,N]], 1..M, 1..N -> [[M,N]].
% incr :: [[L,M,N]], 1..L, 1..M, 1..N -> [[L,M,N]].
% etc..

	y(varargin{:})=y(varargin{:})+1;
