5 lines
153 B
Common Lisp
5 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:")))
|