logo.member :x :y Definition:
to logo.member :x :y if list? :y [ while not (:y = []) [ if :x = (first :y) [output :y] [make "y bf :y] ] ] output [] end