solution.clj

(ns Solution
  (:gen-class))

(defn -main [& args]
  (let [keys {\^ [0 1]
              \> [1 0]
              \v [0 -1]
              \< [-1 0]}
        f (fn [position key]
            (map + (keys key) position))]
    (->> (read-line)
         (reductions f [0 0])
         frequencies
         (map second)
         (apply max)
         (print))))