datasetdir = fileparts(which('isolet'));
files = cellstr(ls([datasetdir '/*.m']));
nocheck = {'pr_dataset','pr_download','pr_download_uci', ...
  'pr_callername','pr_cell2dset','pr_getdata', ...
  'mfeat_all', 'pr_readdataset','pr_dset_align', ...
  'pr_loadmatfile','check_prdatasets','Contents', ...
  'pr_readdataset', 'pr_savematfile'};

global ASK
ASK = false;
  
for n=36:numel(files)
  [dummy,file] = fileparts(files{n});
  if isempty(strmatch(file,nocheck,'exact'))
    disp(file)
    a = feval(file)
    a = setprior(a,getprior(a,0));
    %disp(prcrossval(setprior(a,getprior(a,0)),nmc,2))
    if getsize(a,3) > 1
      disp(prcrossval(a,remclass*nmc,2,[],testd))
    end
  end
end