samer@4: function y=incr(y,varargin)
samer@4: % incr - Increment element of array
samer@4: %
samer@4: % incr :: [[N]], 1..N-> [[N]].
samer@4: % incr :: [[M,N]], 1..M, 1..N -> [[M,N]].
samer@4: % incr :: [[L,M,N]], 1..L, 1..M, 1..N -> [[L,M,N]].
samer@4: % etc..
samer@4: 
samer@4: 	y(varargin{:})=y(varargin{:})+1;