until -package:base -package:llvm-hs-pure -package:ghc-lib-parser -package:numhask 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.