#lang scheme (require plot) (plot (line (lambda (x) x) #:color 'red))