v 0. Pasted by Anonymous as lisp at 2013-04-29 00:54:23 MSK and set expiration to never.
v 1. Reverted by GgRpq7R1F to version 0 at 2015-02-15 01:12:02 MSK.
v 2. Reverted by cUjEO7GFS to version 0 at 2015-02-15 01:54:35 MSK.

Paste will expire never.

  1. ;; (make-action state action) -> state
  2. (defn loop [state]
  3.  (let [inputs (get-inputs)
  4.        actions (create-actions)
  5.        new-state (reduce make-action state actions)]
  6.   (do-cool-graphics new-state)
  7.   (recur new-state)))