import Data.List
import Data.Function
import Data.Ord

main :: IO ()
main = do
  putStrLn "hello"

myList :: [String -> String -> Ordering]
myList =
  [ comparing $ \str -> 2
  , comparing $ \str -> "hello: " <> str
  ]

myFunction :: [String] -> [String]
myFunction xs = sortBy (myList !! 0) xs