(DE SQUASH (S)
   (COND
      ((NULL S) NIL)
      ((ATOM S) (LIST S))
      ( T
         (APPEND
            (SQUASH (CAR S))
            (SQUASH (CDR S))
         )
      )
   )
)