#  Determine if first argument word appears somewhere in the list given
#  by the second argument.

#  Copyright (c) 1994 by Hamilton Laboratories.  All rights reserved.
      
proc member ( a, b )
   local i
   foreach i ($b)
      if (a == i) return 1
   end
   return 0
end

member $argv