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

DONICVM i VT I VSQVE n FAC {
  DESIGNA line VT ""
  DONICVM k VT I VSQVE n FAC {
    DESIGNA line VT line & i * k & "  "
  }
  DIC(line)
}