Function Square

Part of:

package cl-mathstats
( square < x > )