function seqs_fasta_write(fname, S)

N = length(S);
Y=cell(2*N,1);
for i=1:N
    Y{1 + 2*(i-1)} = ['>' num2str(i)];
    Y{2 + 2*(i-1)} = S{i};
end
dlmcell(fname, Y);

end