main :: IO ()
main = do
  writeDebugConsole "'Terminal' starting.\n"
  con <- initXenConsole
  xs <- initXenStore
  writeDebugConsole "Building connection.\n"
  ch <- accept xs
  writeDebugConsole "Connection established.\n"
  writeConsole con "Hello! This is your fabulous ROT13 terminal.\n"
  writeConsole con "  - Type a message, and it will be encrypted for you.\n"
  writeConsole con "  - Finish by entering a blank line.\n"
  runPrompt con ch
main :: IO ()
main = do
  writeDebugConsole "'Terminal' starting.\n"
  con <- initXenConsole
  xs <- initXenStore
  writeDebugConsole "Building connection.\n"
  ch <- accept xs
  writeDebugConsole "Connection established.\n"
  writeConsole con "Hello! This is your fabulous ROT13 terminal.\n"
  writeConsole con "  - Type a message, and it will be encrypted for you.\n"
  writeConsole con "  - Finish by entering a blank line.\n"
  runPrompt con ch
main = do
  writeDebugConsole "'Terminal' starting.\n"
  con <- initXenConsole
  xs <- initXenStore
  writeDebugConsole "Building connection.\n"
  ch <- accept xs
  writeDebugConsole "Connection established.\n"
  writeConsole con "Hello! This is your fabulous ROT13 terminal.\n"
  writeConsole con "  - Type a message, and it will be encrypted for you.\n"
  writeConsole con "  - Finish by entering a blank line.\n"
  runPrompt con ch