4 lines
93 B
Tcl
4 lines
93 B
Tcl
|
set compiled [$comp compile {$x**100 + $x + 1}]
|
||
|
|
set x 10
|
||
|
|
puts "[eval $compiled] = $compiled"
|