Evaluated proc down {host {port 80}} {if {[catch "wget http://$host:$port" cum] == 1} {. down: $cum}}