#!/usr/bin/env racket

#lang racket/base

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

(let*
    ((c 0.04+0.01i)
     (n (string->number (vector-ref (current-command-line-arguments) 0)))
     (debug (string=? "debug" (vector-ref (current-command-line-arguments) 1)))
     (z0 0+0i)
     (z (mandelbrot c n z0)))
  (when debug (printf (number->string z))))