mrange

open System
open System.Diagnostics
open System.Text
open System.Threading

let inline fract x = x - floor x

let rec mandelbrot (x : float) (y : float) (cx : float) (cy : float) i =
  if i > 0 then
    let x2 = x*x