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] -> down" "[last $x] -> up" }}] \n }