function saveh4sd(hfile, varargin)

% add spaces between input char args
vargs = [varargin{:}; char(' '  * ones(1, length(varargin)))];
vargs = vargs(:)';

% make var list global
sprintf('global %s', vargs)

% whoops, looks like this has to be declared global externally,
% as well....  probably this can only work as a script, then

slist = {};

for i = 1 : length(varargin)

  vname = varargin{i};

  if exist(vname) ~= 1
    error(sprintf('variable %s does not exist', vname))
  end

  eval(sprintf('slist{%d} = {%s, ''%s''};', i, vname, vname));

end

slist{:}


% h4sdwrite(hfile, alist, fattr)