-- Function spawning ./program
creator :: Int -> IO Handle
creator sid = do
	spawnPipe $ "./program " ++ show sid

-- What I want
state :: Map Int Hanlde
state = Map.empty

creator :: Int -> IO Handle
creator sid = do
	h <- spawnPipe $ "./program" ++ show sid
	m <- get state
	nm <- Map.insert sid h nm
	put nm state

	return h

-- Later
useHandles :: IO
useHandles = do
   hs <- get state
   -- print them to stdout