(let* ((node-1 (svg-node circular    300 100 "A" ))
          (node-2 (svg-node rectangular 100 200 "B"))
          (node-3 (svg-node rectangular 500 200 "C"))
          (edge-1 (svg-edge node-1 node-2)) 
          (edge-2 (svg-edge node-1 node-3 )) 
         )
     (svg-graph (list node-1 node-2 node-3) (list edge-1 edge-2)))