(defun pp-escolhe-peca (faltam)
    (let ((peca (first (faltam))))
     (dolist (el (faltam))
        (if (< (*(piece-width el)(piece-height el))(*(piece-width peca)(piece-height peca)))
            (setf peca el)
        )
     )
    peca)
    )