qsort [] = []
qsort (p : xs) = qsort [x | x < - xs, x < p] ++ [p] ++ qsort [x | x = p]