gistfile1.txt

graph = method(
  Origin mimic do(
    G = Origin mimic
    G {} = macro(
      msg = call arguments first
      until(msg nil?,
        left = msg arguments first name print
        connector = msg name print
        right = msg next name println
        
        msg = msg next next next
      )
    )
  )
)

;; taken straight from http://www.graphviz.org/Gallery/undirected/process.gv.txt
graph G {
  run -- intr;
  intr -- runbl;
  runbl -- run;
  run -- kernel;
  kernel -- zombie;
  kernel -- sleep;
  kernel -- runmem;
  sleep -- swap;
  swap -- runswap;
  runswap -- new;
  runswap -- runmem;
  new -- runmem;
  sleep -- runmem;
}