--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/testc.rhope	Tue May 26 23:49:46 2009 +0000
@@ -0,0 +1,40 @@
+Import cbackend.rhope
+
+Main[]
+{
+	base <- [[[[[[C Function["Fib",("n"),("out"),""]
+		]Allocate Var["work1", "Any Type"]
+		]Allocate Var["work2", "Any Type"]
+		]Null["out"]
+		]Method Call["<", [[()]Append[AddRef["n"]]]Append[AddRef[Constant["const_2"]]]]
+		]Move[Result[0], "work1"]
+		]Method Call["If", [()]Append["work1"]]
+	{Print["base done"] }
+
+	 stream1 <- [[[base]Instruction Stream
+		]Release[Result[0]]
+		]Move[AddRef[Constant["const_1"]], "out"]
+	{Print["stream1 done"]}
+
+	stream2 <- [[[[[[base]Instruction Stream
+		]Release[Result[0]]
+		]Method Call["-", [[()]Append[AddRef["n"]]]Append[AddRef[Constant["const_1"]]]]
+		]Move[Result[0], "work1"]
+		]Method Call["-", [[()]Append[AddRef["n"]]]Append[AddRef[Constant["const_2"]]]]
+		]Move[Result[0], "work2"]
+	{Print["stream2 done"]}
+
+	func <- [[base
+		]Do If[Result[0], stream1]
+		]Do If[Result[1], stream2]
+	{Print["func done"] }
+		
+	Print[[func]Definitions]
+	{
+	Print[[func]Text] }
+}
+
+Foo[]
+{
+}
+