until -package:numeric-prelude -is:exact -package:numhask package:base-prelude is:exact

until p f yields the result of applying f until p holds.