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[]
{
}