parseMove = do
  skipMany uselessStuff
  movestr <- many1 $ satisfy (not . isSpace)
  if movestr `elem` ["1-0", "0-1", "1/2-1/2", "*"] then
    fail "end of game reached"
    else
    return movestr
parseMove = do
  skipMany uselessStuff
  movestr <- many1 $ satisfy (not . isSpace)
  if movestr `elem` ["1-0", "0-1", "1/2-1/2", "*"] then
    fail "end of game reached"
    else
    return movestr
parseMove = do
  skipMany uselessStuff
  movestr <- many1 $ satisfy (not . isSpace)
  if movestr `elem` ["1-0", "0-1", "1/2-1/2", "*"] then
    fail "end of game reached"
    else
    return movestr