#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")