// Finds all prime numbers up to L (50)

DESIGNA n VT L

DONICVM i VT II VSQVE n + I FACE {
  DESIGNA is_prime VT VERITAS
  DONICVM k VT II VSQVE i FACE {
    SI (i / k) * k EST i TVNC {
      DESIGNA is_prime VT FALSITAS
    }
  }
  SI is_prime TVNC {
    DICE(i)
  }
}