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