Evaluated proc status {domain {port 80}} { set ok [host $domain]; join [map [nlsplit $ok] {x { set s [down [last $x] $port]; bif $s "[last $x] -> [^C]4down[^C]" "[last $x] -> [^C]9up[^C]" }}] \n }