#!/usr/bin/env newlisp

(setq L '(1 2 3))
(println (first L)) ; le premier élément
(println (rest L)) ; la liste privée du premier élément
(println (last L)) ; le dernier élément

(println (rest '(1)))
(println (rest '()))
; return an error: empty list
;(println (first '()))
;(println (last '()))

(define (list-length a-list)
  (if a-list
    (+ 1 (list-length (rest a-list)))
    0))

(println (list-length L))

(exit)