Function: mypack [tothe2]

Calling sequence: tothe2 (x)

Parameters: x - a real number

Decription:

Computes the square of a number.

Examples:

with (mypack):

y := tothe2 (3);

   y := 9

y := tothe2 (-5);

   y := 25