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

procedure Inter(e1,e2)
   suspend |@(e1 | e2)
end