import Control.Concurrent.STM
import Control.Concurrent.STM.Channelize
import Control.Monad
import Network

main :: IO ()
main = withSocketsDo $
    let connect = connectTo "localhost" (PortNumber 1234) >>= connectHandle
     in channelize connect      $ \conn ->
        channelize connectStdio $ \stdio ->
            forever $ atomically $
                (recv conn >>= send stdio) `orElse`
                (recv stdio >>= send conn)