Posted to tcl by Colin at Fri Aug 22 06:20:05 GMT 2008view pretty

    Co init coco /coco/ {r {
	set r [yield]	;# initially just redirect
	while {1} {
	    set content [<h1> "Coco - Coroutining"]
	    append content [<p> "You have called this coroutine [incr n] times."]
	    set r [yield [Http Ok [Http NoCache $r] $content]]
	}
    }}