#lang racket  ; A picture
(require 2htdp/image)
(let sierpinski ([n 6])
  (if (zero? n)
      (triangle 2 'solid 'red)
      (let ([next (sierpinski (- n 1))])
        (above next (beside next next)))))