scheme.exs

cons = fn (a, b) -> fn x -> x.(a, b) end end
car  = fn (p)    -> p.(fn (q, _) -> q end) end
cdr  = fn (p)    -> p.(fn (_, q) -> q end) end
each = fn (list, func) -> 
  iter = fn (list, func, next) ->
    (fn (a, nil) -> func.(a)
        (a, b)   -> func.(a); next.(b, func, next)
    end).(car.(list), cdr.(list))
  end
  iter.(list, func, iter)
end

list = cons.("a", cons.("b", cons.("c", nil)))
each.(list, &IO.puts/1)

I love it! Lisp/scheme is awesome