text: Следующие примеры написаны на R5RS Scheme. (write (+ (read) (read))) Вывод в порт по умолчанию (current-output-port): (let ((hello0 (lambda() (display "Hello world") (newline)))) (hello0)) Передача порта в качестве аргумента: (let ((hello1 (lambda (p) (display "Hello world" p) (newline p)))) (hello1 (current-output-port))) Перенаправление вывода в файл: (let ((hello0 (lambda () (display "Hello world") (newline)))) (with-output-to-file "outputfile" hello0)) Явное открытие файла и закрытие порта: (let ((hello1 (lambda (p) (display "Hello world" p) (newline p))) (output-port (open-output-file "outputfile"))) (hello1 output-port) (close-output-port output-port) ) call-with-output-file: (let ((hello1 (lambda (p) (display "Hello world" p) (newline p)))) (call-with-output-file "outputfile" hello1)) Подобные процедуры есть и для ввода.