main :: IO ()
main = do
  con <- initXenConsole
  xs  <- initXenStore
  writeConsole con "Getting ID ...\n"
  me <- xsGetDomId xs
  writeConsole con $ "Got ID = " ++ show me ++ ".\n"
  threadDelay (2 * 1000 * 1000)
main :: IO ()
main = do
  con <- initXenConsole
  xs  <- initXenStore
  writeConsole con "Getting ID ...\n"
  me <- xsGetDomId xs
  writeConsole con $ "Got ID = " ++ show me ++ ".\n"
  threadDelay (2 * 1000 * 1000)
main = do
  con <- initXenConsole
  xs  <- initXenStore
  writeConsole con "Getting ID ...\n"
  me <- xsGetDomId xs
  writeConsole con $ "Got ID = " ++ show me ++ ".\n"
  threadDelay (2 * 1000 * 1000)