6 lines
117 B
Tcl
6 lines
117 B
Tcl
|
coroutine piDigit piDigitsBySpigot 10000
|
||
|
|
fconfigure stdout -buffering none
|
||
|
|
while 1 {
|
||
|
|
puts -nonewline [piDigit]
|
||
|
|
}
|