1-- classic quick sort (short but not so efficient) 2qsort [] = [] 3qsort (x:xs) = qsort [ x' | x' <- xs, x' < x ] ++ [x] ++ qsort [ x' | x' <- xs, x' >= x ] 4 5-- weird but legal identifiers 6x'y' = let f' = 1; g'h = 2 in f' + g'h 7