main :: IO ()
main = do
    args <- getArgs
    case args of
      "--benchmark":args' -> doBenchmark args'
      _                   -> doMandelbrot
main :: IO ()
main = do
    args <- getArgs
    case args of
      "--benchmark":args' -> doBenchmark args'
      _                   -> doMandelbrot
main = do
    args <- getArgs
    case args of
      "--benchmark":args' -> doBenchmark args'
      _                   -> doMandelbrot