(one A)
(co 'a
   (loop
      (yield A) ) )
(co 'b
   (let A 2
      (loop
         (yield (co 'a T)) ) ) )
(msg 'ok)
(bye)