// Calculates the sum and max of an array

DESIGNA array VT [II,XVIII,XV,IX,XIV,XIV,I,VII,VIII,VI]
DESIGNA max VT NVLLVS
DESIGNA svm VT NVLLVS

PER x IN array FAC {
  DESIGNA svm VT svm + x
  SI x PLVS max TVNC {
    DESIGNA max VT x
  }
}

DIC("Sum:", svm)
DIC("Max:", max)