1 2 3 4 5 6 7 8 9 10 11 12 13
#! /usr/bin/env tclsh proc Quine {} { puts {#! /usr/bin/env tclsh} puts {} puts -nonewline "proc Quine {} {" puts -nonewline [info body Quine] puts "}" puts "" puts "Quine" } Quine