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

DESIGNA n VT L

DONICVM i VT II VSQVE n FAC {
  DESIGNA is_prime VT VERITAS
  DONICVM k VT II VSQVE i - I FAC {
    SI (i / k) * k EST i TVNC {
      DESIGNA is_prime VT FALSITAS
    }
  }
  SI is_prime TVNC {
    DIC(i)
  }
}