(def node7 (list 17 nil nil nil))
(def node6 (list 14 node7 node7))
(def node5 (list 13 node6))
(def node4 (list 12 node5))
(def node3 (list 7 node7 node6 node4))
(def node2 (list 4 node3))
(def node1 (list 3 node3 node2))
(def node0 (list -1000 node3 node1 node1))
 
 
(defn skip-list-keys [n]
  (println(first(last n)))
        (if-not (= nil (last n))
        (skip-list-keys (last n))))
 
 
(defn skip-next [n num start]
  (if-not (= nil (nth n start ""))
        (if(>= num (first(nth n start "")))
         (if(= start 1)
            (println(str "nil"))
             (nth n start ""))
				 (skip-next n num (+ start 1)))
                 (println(str "nil"))))
 
(defn skip-path [n num]
	(list(skip-path[n num 1])))
 
(defn skip-find [n num]
	(last(skip-path[n num 1])))
 
 
(skip-list-keys node0)
(skip-next node3 13 1)

KGRlZiBub2RlNyAobGlzdCAxNyBuaWwgbmlsIG5pbCkpCihkZWYgbm9kZTYgKGxpc3QgMTQgbm9kZTcgbm9kZTcpKQooZGVmIG5vZGU1IChsaXN0IDEzIG5vZGU2KSkKKGRlZiBub2RlNCAobGlzdCAxMiBub2RlNSkpCihkZWYgbm9kZTMgKGxpc3QgNyBub2RlNyBub2RlNiBub2RlNCkpCihkZWYgbm9kZTIgKGxpc3QgNCBub2RlMykpCihkZWYgbm9kZTEgKGxpc3QgMyBub2RlMyBub2RlMikpCihkZWYgbm9kZTAgKGxpc3QgLTEwMDAgbm9kZTMgbm9kZTEgbm9kZTEpKQogCiAKKGRlZm4gc2tpcC1saXN0LWtleXMgW25dCiAgKHByaW50bG4oZmlyc3QobGFzdCBuKSkpCiAgICAgICAgKGlmLW5vdCAoPSBuaWwgKGxhc3QgbikpCiAgICAgICAgKHNraXAtbGlzdC1rZXlzIChsYXN0IG4pKSkpCiAKIAooZGVmbiBza2lwLW5leHQgW24gbnVtIHN0YXJ0XQogIChpZi1ub3QgKD0gbmlsIChudGggbiBzdGFydCAiIikpCiAgICAgICAgKGlmKD49IG51bSAoZmlyc3QobnRoIG4gc3RhcnQgIiIpKSkKICAgICAgICAgKGlmKD0gc3RhcnQgMSkKICAgICAgICAgICAgKHByaW50bG4oc3RyICJuaWwiKSkKICAgICAgICAgICAgIChudGggbiBzdGFydCAiIikpCgkJCQkgKHNraXAtbmV4dCBuIG51bSAoKyBzdGFydCAxKSkpCiAgICAgICAgICAgICAgICAgKHByaW50bG4oc3RyICJuaWwiKSkpKQogCihkZWZuIHNraXAtcGF0aCBbbiBudW1dCgkobGlzdChza2lwLXBhdGhbbiBudW0gMV0pKSkKCihkZWZuIHNraXAtZmluZCBbbiBudW1dCgkobGFzdChza2lwLXBhdGhbbiBudW0gMV0pKSkKCgooc2tpcC1saXN0LWtleXMgbm9kZTApCihza2lwLW5leHQgbm9kZTMgMTMgMSk=