# A generic type Pair for any type # # To get the p7fancyclass command, we source fancyclass.p7i. # A fancyclass provides reflective methods for Tcl code to use. # # Notice that repeated calls to p7source with the same arguments are ignored. p7source fancyclass.p7i p7fancyclass Pair { (TYPE)left (TYPE)right }