logo.sminus :x :y Definition:
to logo.sminus :x :y local "n "z "r make "n 1 make "r [] repeat count :x [ make "z item :n :x if not member? :z :y [ make "r lput :z :r ] make "n :n + 1 ] output :r end