(import (rhs)
        (rsc3)
	(rsc3 dot))

(define (show t)
  (for-each display (flatten t))
  (newline))

(show
 (record '((440 0)
	   (sin-osc)
	   (_))))

(show
 (attr '((color blue)
	 (shape record))))

(show
 (node `(ugen_0 ((shape record)
		 (color blue)
		 (label ,(record `((440 0)
				   (sin-osc)
				   (,(port 'o_0)))))))))

(show
 (edge '(a (b : 0) ((color red)))))

(show
 (digraph '(test ((a ())
		  (b ((color red))))
		 ((a b ((color blue)))
		  (b a ((color green)))))))

(show
 (digraph `(test
	    ((a ((shape record)
		 (label ,(record `((sin-osc 440 0)
				   (,(port 'o_0)))))))
	     (b ((color red))))
	    (((a : o_0) b ((color blue)))))))