diff --git a/functions.lisp b/functions.lisp
index ec754ef..f8d5912 100644
--- a/functions.lisp
+++ b/functions.lisp
@@ -148,8 +148,11 @@
               (format stream-out "~a~%~a~%" (+ 1 tries) params))
             nil))
 
-      (format t "~a	~A	~A	~A	~A	~A	~A	~A~%"
-              level fonction
+      (format t "~a	~A	~{~A ~}	~A	~A	~A	~A	~A~%"
+              level
+              fonction
+
+              ;; returns params without :desc keyword and associated value
               (let ((desc-pos (position :desc params)))
                 (if desc-pos
                     (remove nil