// Prints an X×X multiplication table
DESIGNA n VT X

DONICVM i VT I VSQVE n + I FACE {
  DESIGNA line VT ""
  DONICVM k VT I VSQVE n + I FACE {
    DESIGNA line VT line & i * k & "  "
  }
  DICE(line)
}