function [d,a] =  testing(a,d)
  
  %name=[]; if ~isempty(d) name=d.name; end; % record old name
  [d,a]=generate(a);  
  %d.name=[name ' -> ' d.name];
  

  