until -package:numeric-prelude -package:hosc -package:snap-core -package:singletons-base -is:exact package:protolude

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