     (-> game (add-san-move-sequence
                (filter string? (-> parsed-pgn (nth 2) rest))))))
 
+

  [game]
  (when-not (at-beginning? game)
    (remove-node game)))


(defn to-uci

(ns clj-chess.game
  "Tree data structure for representing an annotated game with variations.
  Work in progress, use at your own risk."
  (:require [clojure.string :as str]
            [clojure.zip :as zip]
            #?(:clj [clojure.pprint :refer [cl-format]]
               :cljs [cljs.pprint :refer [cl-format]])
            [clj-chess.board :as board]
