-- quick sort
sort :: Ord a => [a] -> [a]
sort [] = [] 
sort (h:t) = sort [a | a <- t, a <= h] ++ [h] ++ sort [b | b <- t, b > h]

main :: IO ()
main = print (sort [7,2,4,9,1,5,4,8])