Evaluated proc rproc url { join [map [nlsplit [$url]] {x {set pname [second $x]; if {$pname != "" && [info proc $pname] != ""} {. [^C]04$pname: not installed because it exists} elseif {$pname != ""} {eval $x; . [^C]09$pname: installed } }}] \n }