getint

(getint [pregunta])

Pide un entero entre -32768 y 32767.

(initget 7)
(setq n (getint "\nNúmero de copias: "))