<pre>function intersection list1,list2  toComputer  put empty into theList  repeat with x = 1 to the number of lines of list1    if line x of list1 is in list2 then      put the number of lines of theList + 1 into lastLine      put line x of list1 into line lastLine of theList    end if  end repeat  sort theList  return theListend intersection</pre>