anchor.diff:                            :direction :io)
       (pprint-logical-block (stream () :prefix "graph complex {" :suffix "}")
         (pprint-newline :mandatory stream)
  -      (format stream "size=\"4,4\";~:@_")
  +      (if size (format stream "size=\"~A,~A\";~:@_" (first size) (second sizE)))
         (apply #'print-complex-graph-dot-script cg stream args))
       (fresh-line stream)))
   
  
positive.code: 
  (defun complex-graph-write-dot-file (cg file &rest args
                                      &key
                                      (site-style :filled)
                                      (site-color :white)
                                      (monomer-style :filled)
  
negative.code: ;;;
  (in-package #I@library/biochem)
  
  (include-declaration :expose-symbols __)
  ;;;
  ;;; MONOMER concept - main role is to hold sites
  ;;;
  