main :: IO ()
main = do
  [questionsFile] <- getArgs
  questions <- getQuestions questionsFile
  gameloop questions
main :: IO ()
main = do
  [questionsFile] <- getArgs
  questions <- getQuestions questionsFile
  gameloop questions
main = do
  [questionsFile] <- getArgs
  questions <- getQuestions questionsFile
  gameloop questions