#wm withdraw .; wm withdraw .output; wm geom .konsola 759x525+75+75;

lappend auto_path ./tclws ./tcllib ./tdom
package re WS::Client
  #% 2.3.7

set w1 [::WS::Client::GetAndParseWsdl http://faculty.wmi.amu.edu.pl:30000/service/qqq/wsdl]
dict get $w1 name
dict get $w1 location
::WS::Client::CreateStubs qqq

qqq::razyDwa {1 2 3}
  #% razyDwaResult {2 4 6}
  # + warto obserwowac kom. soap...
  #   widac ze sekwencja jest przekazywana w b. rozrzutny sposob!!!