64
0
primes #(0: n_primes)
dup
cartesian-product
    dup
    sum
    left-cons
m3
sort #(list)
    head
    even
f2
    extract-array
    <=
    swap
    300
    <=
    &
f6
pairwise
m:
    extract-array
    tuck
    tail
    map-show
    "+"
    join
    space
    right-cons
    rrot
        head
    t1
    >
        @2
        show
        new-line
        right-cons
        ":"
        rot
    f6
}
flatten
tail