1
new-line
2
100
crange
m:
    4
    primes #(4: factor)
    head
    range1
    is-prime #(list)
    length
    64
    +
    new-line