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

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