couldn't open "gg": no such file or directory
    while executing
"open "gg" 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 "gg" r]
set l [read -nonewline $f]
close $f
set Ll [split $l "\n"]

foreach l $Ll {
    set i1 [string first "goclass" $l]
    set i2 [string last "goclass" $l]
    set c [string range $l [expr $i1+8] [expr $i2-3]]
    lappend Lc $c
}

set Lc [lsort -unique $Lc]

set o [open "ggo" w]
puts $o [join $Lc "\n"]
close $o

exit