Evaluated proc procbin args {set procs ""; foreach name $args { if {[info proc $name] eq ""} {continue}; 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"}