(define image-of-number
  (lambda (number)
    (if (< number 10)
        (image-of-digit number)
        (side-by-side (image-of-number (quotient number 10))
                      (image-of-digit (remainder number 10))))))