function square(nVal)
  local retVal
  retVal = nVal*nVal
  return retVal