Add atom a :: IO a -> Concurrent a.