% catsep - Format nonempty list of string with comma separators
% catsep :: {[N]->string} -> string.
function s=catsep(sep,list)
	s=list{1}; for i=2:length(list), s=[s,sep,list{i}]; end
end
