(co 'a
   (yield)
   (let This 'This-is-a
      (println This) ) )
(with 'T
   (setq This 'T)
   (println This)
   (yield 'go 'a)
   (println This) )
(msg 'ok)
(bye)