A programm to calculate tenons