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

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