Evaluated proc procbin args {set procs ""; foreach name $args { if {[string length [info proc $name]] > 0} { append procs "[urlencode [inspect $name]\n\n]"} }; set code [last [http post http://www.heypasteit.com/perm-it "text=$procs&fakesecurity=2453564"]];. "http://www.heypasteit.com/clip/$code\nhttp://www.heypasteit.com/download/$code\n"}