until -package:clash-prelude -package:utility-ht -package:hledger-web -package:linear-base -package:monad-loops 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.