Richard Suchenwirth 2006-01-28 - Exhibit A was found in the waste-paper bin of a defunct software company:
##################################################################
#
#
# add.tcl
#
# Implemented function:
#
# add
#
# Usage: add a b
#
# Input:
# a a number
# b another number
#
# Output:
#
# The sum of the numbers
#
# Side effects:
#
# None
#
# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
# "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
# LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
# A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL MACQUARIE
# UNIVERSITY OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT,
# INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING,
# BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS
# OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
# ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR
# TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE
# USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH
# DAMAGE.
#
#####################################################################
proc add { a b } \
{
set sum [ expr "$a" * "$b" ];
return $sum;
};
#####################################################################
#
# Test suite:
#
# add 0 0 == 0
#
# add 2 2 == 4
#
# Passed on Apr 1, 2005 - phb
#
#####################################################################Acknowledgement: part of the documentation (the LEGALESE) was copied from tclCarbonProcesses, which however does not imply that the said page is in any material or immaterial connection with the defunct company :^)