samer@13: function [Y,s]=cmapaccum(fn,s,X)
samer@13: % cmapaccum - Map a function over a cell array
samer@13: %
samer@13: % cmapaccum :: (A,S->B,S), S, {[Size]->A}) -> {[Size]->B}, S.
samer@13: 
samer@13: % preallocate to fix size
samer@13: Y=cell(size(X));
samer@13: for i=1:numel(X)
samer@13: 	[Y{i},s]=fn(X{i},s);
samer@13: end