DEFINI sqvare(x) VT {
  REDI(x*x)
}

DIC(INVOCA sqvare(XI))