skeptic = do
  a <- getCharacter "archibald"
  p <- getCharacter "pemberton"
  as a $ do
    onStage
    say "Ah!  A man with reason superior to this ape, Pemberton's!"
  as p $ do
    say "Trust me just a little bit, my fair collective of judges."
  getChoice [ ("...", ready)]
skeptic = do
  a <- getCharacter "archibald"
  p <- getCharacter "pemberton"
  as a $ do
    onStage
    say "Ah!  A man with reason superior to this ape, Pemberton's!"
  as p $ do
    say "Trust me just a little bit, my fair collective of judges."
  getChoice [ ("...", ready)]
skeptic = do
  a <- getCharacter "archibald"
  p <- getCharacter "pemberton"
  as a $ do
    onStage
    say "Ah!  A man with reason superior to this ape, Pemberton's!"
  as p $ do
    say "Trust me just a little bit, my fair collective of judges."
  getChoice [ ("...", ready)]