(define (SQUARE num) (* num num))
(define (squarer num1 num2)
  (if (> num1 num2)
      "Конец"
      (printf "~a ~a \n" num1 (SQUARE num1)))
      (squarer (+ num1 1) num2))