quicksort :: (Ord a) => [a] -> [a]
quicksort [] = []
quicksort (x:xs) =
        let big = quicksort [i | i <- xs, i > x]
            small = quicksort [i | i <- xs, i <= x]
        in small ++ [x] ++ big