Run two IO actions concurrently. Seems to run the second one first, for me.

concurrently.hs

{-# OPTIONS_GHC -F -pgmF she #-}
import Control.Applicative
import Control.Concurrent.Async

action = (| Concurrently getLine ++ Concurrently getLine |)

main = putStrLn =<< runConcurrently action