-- Quick sort for Haskell.

module Main where

qs :: [Int] -> [Int]
qs []     = []
qs (a:as) = qs [x | x <- as, x <= a] ++ [a] ++ qs [x | x <- as, x > a]

main =
  appendChan stdout "Enter a list of integers separated by \",\"\n" abort $
  readChan stdin abort $ \ input ->
  appendChan stdout (show (qs (read ("[" ++ (head (lines input)) ++ "]"))))
             abort done