4.3BSD/usr/contrib/icon/book/f/repalt.icn

procedure Repalt(e)
   local x
   repeat {
     while x := @e do suspend x
      if *e = 0 then fail
      e := ^e
      }
end