function y=rotl(x,n)
% rotl - rotate columns of array to left
%
% rotl :: [[N,M]] -> [[N,M]].
% rotl :: [[N,M]], natural -> [[N,M]].

if nargin<2, n=1; end
y = x(:,[n+1:size(x,2),1:n]);
