   (let [input (slurp-day-input 3)]
     (count
       (second
-        (reduce #(let [[[x y] s] % nval (-move %2 x y)]
+        (reduce #(let [[[x y] s] % nval (move %2 x y)]
                   [nval (conj s nval)])
                 [[0 0] #{[0 0]}]
                 input)))))

           (map
             #(+ (happiness %) (happiness (reverse %)))
             arrangements))))

                         (fn [n] (s->int n)) (re-seq #"\-?\d+" %))))) (iterate rm-red-jsobj input)))

;day 13
;parts 1 and 2 (part 2 is about changing input)
(defn- d13-single-line-extractor
  "Extracts data from single line of input for day 13"
  [line]
