Function Sqr

Part of:

package lisplab
( sqr < x > )
Square function, (* x x).