endless

proc fun arg {
    return [expr $arg*2]
}
set sum [ apply {{sum x }
    { foreach  z $x { set sum [expr [fun $z] + $sum] } ; return $sum  }} {0} { 2 5 } ]
puts $sum

coroutine accumulator apply {{} {
    set x 0
    while 1 {
        puts $x
        incr x [yield $x]
        
    }
}}
#for {set i 0} {$i < 10} {incr i} {
#    puts "$i -> [accumulator $]"
#}
accumulator [fun 43]
accumulator [fun 123]




set hex 07
scan $hex %x decimal
#
set signShort [binary format s1 0x10111111]
puts $signShort