(declaim (optimize speed (safety 0)))

(defun mand (c n &aux (z #c(0.0 0.0)))
  (declare ((complex single-float) z))
  (check-type c (complex single-float))
  (check-type n (and fixnum (integer 1)))
  
  (dotimes (i n z)
    (setf z (+ c (* z z)))))

(defun main ()
  (let ((n (read))
          (c #c(0.04 0.01)))
    (print (mand c n))))

;; (disassemble #'mand)

(main)