lisp.jl

type Null
end

nil = Null()

cons = function(x, y)
  (m) -> m(x, y)
end

car = function(z)
  z((p, q)->p)
end

cdr = function(z)
  z((p, q)->q)
end

function each(m, l)
  val = car(l)
  m(val)
  if cdr(l) != nil
    each(m, cdr(l))
  end
end

list = cons("foo", cons("bar", cons(1, nil)))
each(println, list)

Where are your Father's Parenthesis?