Present yielded yield as `(begin (yield <expr>) •)`

[LuKuangChen]

Otherwise the part is lost when yielding from a loop. The begin part should be removed when appropriate.