quicksort  []       =  []
quicksort (x:xs)    =  quicksort [y | y <- xs, y<x]
                    ++ [x]
                    ++ quicksort [y | y <- xs, y>=x]