awesome = do
  a <- getCharacter "archibald"
  p <- getCharacter "pemberton"
  as a $ do
    onStage
    say "I am skeptical of the computing machine's ability to capture a novel."
  as p $ do
    say "Prepare to be amazed."
  getChoice [ ("I too am skeptical.", pembertonDislikes >> skeptic)
            , ("I am very prepared.", pembertonLikes >> ready)
            ]
awesome = do
  a <- getCharacter "archibald"
  p <- getCharacter "pemberton"
  as a $ do
    onStage
    say "I am skeptical of the computing machine's ability to capture a novel."
  as p $ do
    say "Prepare to be amazed."
  getChoice [ ("I too am skeptical.", pembertonDislikes >> skeptic)
            , ("I am very prepared.", pembertonLikes >> ready)
            ]
awesome = do
  a <- getCharacter "archibald"
  p <- getCharacter "pemberton"
  as a $ do
    onStage
    say "I am skeptical of the computing machine's ability to capture a novel."
  as p $ do
    say "Prepare to be amazed."
  getChoice [ ("I too am skeptical.", pembertonDislikes >> skeptic)
            , ("I am very prepared.", pembertonLikes >> ready)
            ]