function [out] = addtoinnest (stcell, addto)
% addtoinnest
  
if (iscell (stcell))
  chng = addtoinnest (stcell{2}{1}, addto);
  stcell{2}{1} = chng;
  out = stcell;
else
  out = {stcell, addto};
end