function quickSort data
  put number of lines in data into lineCount
  if lineCount <= 10 then return bubbleSort(data)
  put quickSort(line 1 to lineCount div 2 of data) into p1
  put quickSort(line lineCount div 2 + 1 to lineCount of data) into p2
  return mergeLists(p1,p2)
end quickSort