module Main (main) where

quicksort [] = []

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

main = putStr "Ingrese la lista\n"

       [xs] <- getLine