function union list1,list2
  toComputer
  put list1 into theList
  repeat with x = 1 to the number of lines of list2
    if line x of list2 is not in theList then
      put the number of lines of theList + 1 into lastLine
      put line x of list2 into line lastLine of theList
    end if
  end repeat
  sort theList
  return theList
end union