#lang racket (require 2htdp/image) (define (no-dialogue-with n) (cond [(zero? n) (bitmap/file "kant2.jpg")] [else (local [(define c (no-dialogue-with (- n 1))) (define i (bitmap/file "kant.jpg"))] (above (beside i c i) (beside c i c) (beside i c i)))])) (save-image (no-dialogue-with 2) "kants.png")