arc> (intersperse 'x '()) (nil)
(def intersperse (x ys) (and ys (cons (car ys) (mappend [list x _] (cdr ys)))))
-----