puts -nonewline stdout "info script\r\n"
puts stdout "[info script]"
puts stdout "::argc"
puts stdout $::argc
puts stdout "::argv"
puts stdout "$::argv"
puts stdout "NS"
puts stdout "[namespace current]"

if {[info exists ::test]} {
    puts stdout "::test has existing value"
    puts stdout "$::test"
}

puts stdout "setting ::test to showargs-ran"
set ::test "showargs-ran"
puts stdout "doing basic check of stdin for data"
chan configure stdin -blocking 0
set indata ""
if {![chan eof stdin]} {
    #set indata [read stdin]
}
if {[string length $indata]} {
    puts stdout "read from stdin:"
    puts stdout $indata
} else {
puts stdout "-no stdin data read-"
}