quicksort []     = []
quicksort (p:xs) = quicksort small ++ mid ++ quicksort large
  where
    small = [y | y<-xs, y<p]
    mid   = [y | y<-xs, y==p] ++ [p]
    large = [y | y<-xs, y>p]