repeat

(repeat integer expression...)

Evaluates the expressions the given number of times. Returns the value of the last one.

(setq n 1)
(repeat 4 (setq n (* n 2)))   ; 16