boolpath

(defn atom? [x]
  (not (list? x)))

(def car first)
(def cdr next)
(def add1 inc)
(def sub1 dec)

(defn lat? [lst]
  (every? atom? lst))

boolpath

require 'rubygems'
require 'couchbase'

def transfer(source, destination, amount)
  cb = Couchbase.bucket

  # prepare transaction document
  id = cb.incr("transaction:counter", :create => true)
  trans_id = "transaction:#{id}"
  cb.set(trans_id, {"source" => source, "destination" => destination,