elf = do
  p <- getCharacter "pemberton"
  as p $ do
    onStage
    say "Yup!"
  getChoice [("Cool!", awesome)]
elf = do
  p <- getCharacter "pemberton"
  as p $ do
    onStage
    say "Yup!"
  getChoice [("Cool!", awesome)]
elf = do
  p <- getCharacter "pemberton"
  as p $ do
    onStage
    say "Yup!"
  getChoice [("Cool!", awesome)]