--- parser3/www/htdocs/Attic/_bug.html 2005/11/21 15:08:45 1.101
+++ parser3/www/htdocs/Attic/_bug.html 2005/11/22 11:31:58 1.104
@@ -1,6 +1,13 @@
-@USE
-/child.p
-
-@main[]
-$child[^child::create[]]
-^child.procedure[]
+^for[i](1;100){
+
+$original[^for[j](1;$i){$j}]
+$original[^file::create[text;original.txt;$original]]
+$original.text
+
+$encoded[^original.base64[]]
+$encoded
+
+$decoded[^file::base64[$encoded]]
+$decoded.text
+^if($decoded.text ne $original.text){^throw[bug;here]}
+}