Foo[:out]
{
	a <- Yield[]
	Val[a]
	{ out <- Print["Foo!"] }
}

Main[:out]
{
	Call Async[Foo[?]]
	{ got char <- Get Char[] }
	Val[got char]
	{ out <- Yield[] }
}