function Y=maprows(f,X)
% maprows - Map a function of a vector over the rows of an array
%
% maprows :: 
%    ([[1,N]->A] -> [[1,M]->B]) ~'function maps a row of A to a row of B',
%    [[L,N]->A]
% -> [[L,M]->B].

n=size(X,1);
if n==0, Y=[];
else
	for i=n:-1:1
		Y(i,:)=f(X(i,:));
	end
end

