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