import Data.List (partition)

main :: IO ()
main = do
  let unsorted = [10,9..1]
  putStrLn $ show $ quicksort unsorted

myValue :: Ord a => [a]
myValue = [2, "Text"]