bf.isbpl performance visualization

bf.isbpl

@@ -21,6 +21,7 @@ func main {
     filename ".isbpl" strconcat STREAM.create.file.out stream
         ! s swap stream.write
           STREAM.close stream
+    "---\n" puts
     "Java" try {
         s Context new eval
     } {
@@ -31,7 +32,7 @@ func main {
 
 func read {
     with s ;
-    [ s STREAM.read stream dup -1 eq if { ] pop "" 2 stop } _char ] _string
+    [ s STREAM.read stream dup -1 eq if { pop pop "" 2 stop } _char ] _string
 }
 
 
@@ -56,8 +57,10 @@ func makeCode {
 
     def c
     while { s read dup =c "" eq not } {
+        c puts
         code " " strconcat ( c parse ) strconcat =code
     }
+    "\n" puts
     code
 }