to zamijena :r :t :z
op map [[l] [op (if memberp :l :t [item ((count :t)-(count member :l :t)+1) :z] [:l])]] :r
end