lappend auto_path ./tclws ./tcllib ./tdom
package re WS::Server
package re WS::Embeded

::WS::Server::Service -mode embedded -service qqq -ports 30000

::WS::Server::ServiceProc qqq {razyDwa {type int()}} {
  par1 {type int() comment {ciag liczb int}}
} {mnozy elementy ciagu razy 2} {
  set w {}
  foreach e $par1 {lappend w [expr {$e*2}]}
  return [list razyDwaResult $w]
}

::WS::Embeded::Listen 30000

vwait qqq