gameloop (q:qs) = do
  answer <- askQuestion q
  showAnswer answer
  gameloop qs
gameloop (q:qs) = do
  answer <- askQuestion q
  showAnswer answer
  gameloop qs
gameloop (q:qs) = do
  answer <- askQuestion q
  showAnswer answer
  gameloop qs