qsort []     = []
  qsort (x:xs) = qsort elts_lt_x ++ [x] ++ qsort elts_gr_x
                   where
                     elts_lt_x   = [y | y <- xs, y < x]
                     elts_gr_x = [y | y <- xs, y > x]