wip - go to plane

diff --git a/layout/extractgraph b/layout/extractgraph
index 90b074b34e1639d8a63cdb9e2c6798be678349e5..a021635db15e8d18e9e9e2e3b84a77aacd5188e8 100755 (executable)
--- a/layout/extractgraph
+++ b/layout/extractgraph
@@ -154,10 +154,16 @@ sub readin () {
     }
 }
 
+sub pr ($$) {
+    my ($kind,$wh) = @_;
+    $ref= "$ref";
+    $ref =~ y/()/__/;
+    return $ref
+
 sub writeout () {
     my ($node);
     for $node (@nodes) {
-       print "$node\n";
+       print "Node ",pr(Node,$node),";\n";
     }
 }