han String -> IO ThreadId
writerProcess outChan = do
    forkIO $ proc outChan
  where
    proc outChan = forever $ do
        message <- atomically . readTChan $ outChan
        putStrLn message


readerProcess ::
writerProcess :: TChan String -> IO ThreadId
writerProcess outChan = do
    forkIO $ proc outChan
  where
    proc outChan = forever $ do
        message <- atomically . readTChan $ outChan
        putStrLn message
writerProcess outChan = do
    forkIO $ proc outChan
  where
    proc outChan = forever $ do
        message <- atomically . readTChan $ outChan
        putStrLn message