game = do
  liftIO $ playBackground "suave.wav"
  setBackground "paris"
  p <- getCharacter "pemberton"
  as p $ do
    onStage
    say "The Proper Visual Novel EngineLibraryFramework makes it easy to write"
    say "your own interactive novel experience!"
  getChoice [ ("That sounds awesome!", awesome)
            , ("It's called an ELF?", elf)
            ]
game = do
  liftIO $ playBackground "suave.wav"
  setBackground "paris"
  p <- getCharacter "pemberton"
  as p $ do
    onStage
    say "The Proper Visual Novel EngineLibraryFramework makes it easy to write"
    say "your own interactive novel experience!"
  getChoice [ ("That sounds awesome!", awesome)
            , ("It's called an ELF?", elf)
            ]
game = do
  liftIO $ playBackground "suave.wav"
  setBackground "paris"
  p <- getCharacter "pemberton"
  as p $ do
    onStage
    say "The Proper Visual Novel EngineLibraryFramework makes it easy to write"
    say "your own interactive novel experience!"
  getChoice [ ("That sounds awesome!", awesome)
            , ("It's called an ELF?", elf)
            ]