(defun linearise (l)
    (cond ((null l) nil)
          ((ATOM (car l)) (cons (car l)(linearise (cdr l))))
          (t(append  (car l) (linearise (cdr l))  ))
    )
)