 function s = RemoveBlanks(t)
 % t is a string and s is a string obtained by deleting all blanks from t.
 s = [];
 for k=1:length(t)
     if t(k)~=' '
         s = [s t(k)];
     end
 end