(use-modules (graphgif))

(define my-graph
  `(((10 . 10) (1) ,white)
    ((30 . 20) ()  ,red)))

(define more-complex-graph
  `(((10 . 10) () ,white) 
    ((40 . 10) (0) ,white)
    ((25 . 25) (0 1) ,white)
    ((10 . 40) (0 2 4) ,white)
    ((40 . 40) (1 2 3) ,white)))

(write-graph-to-file more-complex-graph (cadr (command-line)))