```haskell sortBy :: (a -> a -> Ordering) -> [a] -> [a]` sortBy (\(a,_) (b,_) -> compare a b) [(2, "world"), (4, "!"), (1, "Hello")] [(1,"Hello"),(2,"world"),(4,"!")] ```