4.3BSD/usr/contrib/icon/book/15/arbno.icn

procedure arbno(p)
   suspend "" | (p() || arbno(p))
end