Rebol3 Code Examplex

Rebol [
    title: "Rosetta code: Summarize primes"
    file:  %Summarize_primes.r3
    url:   https://rosettacode.org/wiki/Summarize_primes
]

print "index | prime | prime sum"
print "------------------------------"
s: i: 0
for n 2 999 1 [
    if prime? n [
        i: i + 1
        s: s + n
        if prime? s [
            printf [6 "| " 6 "| " 11] [i n s]
        ]
    ]
]

index | prime | prime sum
------------------------------
1     | 2     | 2          
2     | 3     | 5          
4     | 7     | 17         
6     | 13    | 41         
12    | 37    | 197        
14    | 43    | 281        
60    | 281   | 7699       
64    | 311   | 8893       
96    | 503   | 22039      
100   | 541   | 24133      
102   | 557   | 25237      
108   | 593   | 28697      
114   | 619   | 32353      
122   | 673   | 37561      
124   | 683   | 38921      
130   | 733   | 43201      
132   | 743   | 44683      
146   | 839   | 55837      
152   | 881   | 61027      
158   | 929   | 66463      
162   | 953   | 70241