Use cl-loop instead of loop