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

procedure genpos(a,x)
   local i
   every i := 1 to *a do
      if a[i] === x then suspend i
end