How to make Slender-Like Static?

If you run this code in the Nyquist Prompt effect it will produce static-like noise.

;version 4
;control repeats "Number of iterations" int "" 4 1 10

(let ((static (noise)))
  (dotimes (i repeats static)
    (setf static (mult static (noise))))
  (mult static (/ 0.8 (peak static 100000))))