(define-type canvas (struct canvas)) (define-type plotter-configuration (list-of (or false char))) (define-type plotter-config-arg (or char plotter-configuration)) (define-type shape-plotter (canvas #!optional fixnum fixnum -> void)) (define-type virtual-shape-plotter (canvas #!optional integer integer -> void))