kifu :: Parser JKF
kifu = do
  many skipLine
  comment_ <- many $ try comment
  headers1 <- many $ try header
  movemoves <- many $ try sashite
  let moves = map (\mm -> MoveFormat Nothing (Just mm) Nothing Nothing Nothing) movemoves
  return $ JKF (Header "sente" "gote" "1/1 00:00" "1/1 10:00" "hirate") Nothing moves

--   hs <- try headers
--   kls <- try kifuLines
--   return $ Kifu hs kls
kifu :: Parser JKF
kifu = do
  many skipLine
  comment_ <- many $ try comment
  headers1 <- many $ try header
  movemoves <- many $ try sashite
  let moves = map (\mm -> MoveFormat Nothing (Just mm) Nothing Nothing Nothing) movemoves
  return $ JKF (Header "sente" "gote" "1/1 00:00" "1/1 10:00" "hirate") Nothing moves

--   hs <- try headers
--   kls <- try kifuLines
--   return $ Kifu hs kls
kifu = do
  many skipLine
  comment_ <- many $ try comment
  headers1 <- many $ try header
  movemoves <- many $ try sashite
  let moves = map (\mm -> MoveFormat Nothing (Just mm) Nothing Nothing Nothing) movemoves
  return $ JKF (Header "sente" "gote" "1/1 00:00" "1/1 10:00" "hirate") Nothing moves

--   hs <- try headers
--   kls <- try kifuLines
--   return $ Kifu hs kls