I need to make a function in lisp that displays a list like this: 

```
(a b (c d) (e f g) h) ->
(a
 b
 (c
  d)
 (e
  f 
  g)
 h)

```

So far i managed to make a function that displays a list like this.

```
(defun print1-lista(l)
   (princ pard)
   (do ((lst l (cdr lst)))
       ((null (cdr lst)) (princ (car lst)) (princ par))
     (princ (car lst))
     (terpri)))

   PRINT1-LISTA
   > (print1-lista '(1 (1 2) 3 4))
   {1
   (1 2)
   3
   4}
   }

```