'while' cannot be used in Common Lisp

We can use `loop` for iteration.