let f(i) = do
  while (i) i=i-1
f(1e6)