puts "INFO-lib [info library]"
puts "R1-encN [llength [encoding names]]"
puts "R4-exists [file exists /usr/lib/tcl8.6/init.tcl]/[file readable /usr/lib/tcl8.6/init.tcl]"
puts "R2-expr [expr 6*7]"
puts "ALL-TCL-OK"