% adct - arrow for idct
%
% aidct :: M:natural, N:natural -> arrow({[[M]]}, {[[N]]}, empty).
function o=aidct(M,N)
	o=arr(@(x)idct(x,N));

	% W=col(idct(eye(N)),M);
end

