Evaluated proc portscan {host start stop} { if {[- $stop $start] > 1024} {return "nah"}; set cum [map [seq $start $stop] {x { if {[down $host $x] == 0} {. $x} }}]; . open ports on $host:\n[join $cum \n] }