See TIP 131 [L1 ]
RS 2004-07-28 - The RMM part still awaits implementation, but if you transport mind over stdin, here's an initial implementation:
proc do args {
puts [uplevel 1 $args]
}
proc what {who verb} {
puts -nonewline "what do you $verb? "
flush stdout
uplevel 1 [gets stdin]
}
while 1 {do what I mean}