until -package:prelude-compat -package:base-prelude -package:netwire -package:singletons-base package:foundation

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