Added coddfrom littlelisp