#!/usr/bin/guile \
-e main -s
!#

(define (mandelbrot c n z)
  (if (= n 0) z
      (mandelbrot c (- n 1) (+ (* z z) c))))

(define (main args)
  (let* ((n (string->number (cadr args)))
     (debug (string= "debug" (caddr args)))
     (c 0.04+0.01i)
     (z0 0+0i)
     (z (mandelbrot c n z0)))
    (when debug (format #t "~a~%" z))))