source ../../oo.tcl @import core.* set server [[HttpServer new] port: 4000] $server root: [file join [set @RUNTIME(directory)] doc] $server start