Generate Boolean Methods[backend:out]
{
	func,inval <- [[[[[backend]Create Function["If@Boolean",("in"),("yes","no"),"rhope"]
		]Set Input Type[Type Instance["Boolean"], 0]
		]Set Output Type[Type Instance["Boolean"], 0]
		]Set Output Type[Type Instance["Boolean"], 1]
		]Read Field["in", "Val"]

	ifyes <- [[[func]Instruction Stream
		]Move["in","yes"]
		]Set Null["no"]

	ifno <- [[[func]Instruction Stream
		]Move["in","no"]
		]Set Null["yes"]

	ffunc <- [[func]Do If[inval, ifyes]
		]Do If[NotCond[inval], ifno]

	out <- [backend]Store Function[ffunc]
}