4.3BSD/usr/contrib/icon/book/13/every.icn

procedure Every(e1,e2)
   while @e1 do @^e2
end