<pre>function removeDoubles list  toComputer  repeat with x = 1 to the number of lines of list    repeat with y = the number of lines of list down to x+1      if line x of list is line y of list      then delete line y of list    end repeat  end repeat  return listend removeDoubles</pre>