double :: Int -> Int
double x = x + x

recSum :: Num a => [a] -> a
recSum [] = 0
recSum (n:ns) = n + sum ns

qsort :: Ord a => [a] -> [a]
qsort [] = []
qsort (x:xs) = qsort smaller ++ [x] ++ qsort larger