until -package:classy-prelude -package:streaming -package:Cabal-syntax -package:cabal-install-solver package:numeric-prelude

until p f yields the result of applying f until p holds.
candidates for Utility ?
Trim until a minimum exponent is reached. Safe for zeros.