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

DICE(INVOCA sqvare(XI))