TclWS non-working example

# Program

package require WS::Client 2.5

::WS::Client::SetOption genOutAttr 1
::WS::Client::SetOption parseInAttr 1

set serviceInfo \
    [::WS::Client::GetAndParseWsdl \
	 http://orthos.dhses.ny.gov/arcgis/services/Latest/MapServer?wsdl]
set serviceName [::WS::Client::LoadParsedWsdl $serviceInfo]

set procInfo [::WS::Client::CreateStubs $serviceName]

set reply [${serviceName}::GetServerInfo {MapName {{} Layers}}]
set res [dict get $reply Result {}]
puts "  Full Extent:\n    "
foreach c [split [dict get $res FullExtent] {}] {
    if {[string is print $c]} {
	puts -nonewline $c
    } else {
	scan $c c ch
	puts -nonewline \\x[format $02x $ch]
    }
}
puts \n

#-----------------------------------------------------------------------
# Result
#-----------------------------------------------------------------------
::type tns:EnvelopeN {} {-8883833.30226226154916395.3269803952-7973800.02042372715632483.3843831643PROJCS["WGS_1984_Web_Mercator_Auxiliary_Sphere",GEOGCS["GCS_WGS_1984",DATUM["D_WGS_1984",SPHEROID["WGS_1984",6378137.0,298.257223563]],PRIMEM["Greenwich",0.0],UNIT["Degree",0.0174532925199433]],PROJECTION["Mercator_Auxiliary_Sphere"],PARAMETER["False_Easting",0.0],PARAMETER["False_Northing",0.0],PARAMETER["Central_Meridian",0.0],PARAMETER["Standard_Parallel_1",0.0],PARAMETER["Auxiliary_Sphere_Type",0.0],UNIT["Meter",1.0],AUTHORITY["EPSG",3857]]-20037700-30241100148923141.92838538-10000010000-100000100000.0010.0010.001true1021003857}