function a = double(a)
 for i = 1:length(a), a(i) = a(i) + a(i); end

clear b; tic; for i = 1:10^5, b(i) = a(i) + a(i); end, toc