--- parser3/www/htdocs/Attic/_bug.html	2004/12/23 14:40:54	1.73
+++ parser3/www/htdocs/Attic/_bug.html	2005/11/21 15:08:45	1.101
@@ -1,25 +1,6 @@
-@main[]
-
-$cH[^cH[]]
-
-^if($cH.this is "junction"){
-		$result[^cH.this[$cH.th_par]]
-}{
-		$result[0]
-}
+@USE
+/child.p
 
-####################################################################################################################
-
-@cH[]
-$result[
-		$.this[$mThis]
-		$.th_par[
-				$.a(2)
-				$.b(3)
-		]
-]
-####################################################################################################################
-
-@mThis[lparams][params]
-$params[^hash::create[$lparams]]
-$result[^eval($params.a * $params.b)]
+@main[]
+$child[^child::create[]]
+^child.procedure[]