(ns konami.code
  (:require [clojure.zip :as zip]))

(def ↑ zip/up)

(def ↓ zip/down)

(def ← zip/left)

(def → zip/right)

(def b zip/replace)

(defn konami [x]
  (-> x ↑ ↑ ↓ ↓ ← → ← → (b :a)))

Generated by Phil Hagelberg using scpaste at Wed Sep 7 16:20:06 2011. PDT. (original)