function C=specprod(A,B)
% specprod - kind of spectral distance matrix product thingy
%
% specprod :: [[N,M]], [[M,L]] -> [[N,L]].

C=zeros(size(A,1),size(B,2));
for i=1:size(A,1)
	for j=1:size(B,2)
		C(i,j)=specdist(B(:,j),A(i,:)');
	end
end
