Write DOT graphs in Scheme.