(defun construct-lines (arr l-word wordlist) ;; could put l-word in let (1- (length wordlist))
  (let ((complete-list '()))
    (while (> 0 l-word)
      (let ((temp-list '()))
	(loop for i from (aref arr 1 l-word) to l-word do ;; me ta +1 -1 den eimai sigouros
	     (push (elt wordlist i) temp-list)
	     (setf l-word (aref arr 1 l-word))) ;;oxi 100% sigouros
	(push (reverse temp-list) complete-list)))
    complete-list))