header = do
  k <- many $ noneOf "\r\n："
  string "："
  v <- many $ noneOf "\r\n："
  endOfLine
  return (k, v)

-- initialBoard = do
--   c <- many $ noneOf "\r\n"
--   endOfLine
--   return c

-- splitLine = return $ many $ string "手数----指手--" "-------消費時間--"

sashite :: Parser Mo
header = do
  k <- many $ noneOf "\r\n："
  string "："
  v <- many $ noneOf "\r\n："
  endOfLine
  return (k, v)

-- initialBoard = do
--   c <- many $ noneOf "\r\n"
--   endOfLine
--   return c

-- splitLine = return $ many $ string "手数----指手--" "-------消費時間--"
header = do
  k <- many $ noneOf "\r\n："
  string "："
  v <- many $ noneOf "\r\n："
  endOfLine
  return (k, v)

-- initialBoard = do
--   c <- many $ noneOf "\r\n"
--   endOfLine
--   return c

-- splitLine = return $ many $ string "手数----指手--" "-------消費時間--"