chan <- atomically newBroadcastTChan
    warp 3000 $ App chan

main :: IO ()
main = do
    chan <- atomically newBroadcastTChan
    warp 3000 $ App chan
main = do
    chan <- atomically newBroadcastTChan
    warp 3000 $ App chan