draw fractal patterns with Scheme