I guess I don't understand the question.
I don't think you can do what you want to do.
What you really probably want are Tcl procedures that return the correct results. Then you can call them instead of including a Tcl file without an ADP.
Another option is to use the ADP as intended and instead of having @html_output;noqoute@ you'd put the HTML tags and static content in the ADP with the appropriate Tcl variables to fill in the dynamic parts of the content.