写一段scheme程序

Scheme是一种通用的计算机编程语言，以其简洁和强大的功能而闻名。下面是一个简单的Scheme程序示例，它展示了如何定义一个函数、使用条件语句以及打印输出结果。

; 定义一个函数，计算两个数的最大公约数
(define (gcd a b)
  (if (= b 0)
      a
      (gcd b (remainder a b))))

; 定义两个变量，用于计算它们的GCD
(define num1 48)
(define num2 18)

; 调用gcd函数并打印结果
(display "The GCD of ")(display num1)(display " and ")(display num2)(display " is ")
(display (gcd num1 num2))(newline)

这段程序首先定义了一个名为gcd的函数，它接受两个参数a和b，并使用递归和条件语句来计算它们的最大公约数。然后，程序定义了两个变量num1和num2，分别赋值为48和18。接着，程序调用gcd函数并使用display函数打印出这两个数的最大公约数。最后，使用newline函数来换行，以便于阅读输出结果。

请注意，这个示例程序是基于Scheme语言的基本特性编写的，不同的Scheme实现可能会有细微的语法差异。67