can't read "argv": no such variable
    while executing
"open $argv r"
    (in namespace eval "::request" script line 3)
    invoked from within
"namespace eval ::request $script"
    ("::try" body line 12)
OUTPUT BUFFER:
#!/usr/local/bin/tclsh

set f [open $argv r]

set txt [read $f]

close $f

set npo [regsub -all {\(} $txt "" bidon]
set npf [regsub -all {\)} $txt "" bidon]
set nao [regsub -all {\{} $txt "" bidon]
set naf [regsub -all {\}} $txt "" bidon]
set nco [regsub -all {\[} $txt "" bidon]
set ncf [regsub -all {\]} $txt "" bidon]

puts "npo : $npo"
puts "npf : $npo"
puts "nao : $nao"
puts "naf : $naf"
puts "nco : $nco"
puts "ncf : $ncf"

exit