4 lines
153 B
Common Lisp
4 lines
153 B
Common Lisp
(do ((number 0) (okp t))
|
|
((or (not okp) (= 75000 number)))
|
|
(multiple-value-setq (number okp)
|
|
(capi:prompt-for-integer "Enter an integer:")))
|