Thank you very much for your help. I'm not that advanced in Lisp so I will try to understand what you have written