Source code in the langur programming language

val .isPrime = f .i == 2 or .i > 2 and not any f(.x) .i div .x, pseries 2 .. .i ^/ 2

val .sumDigits = f fold f{+}, s2n toString .i

writeln "Additive primes less than 500:"

var .count = 0

for .i in [2] ~ series(3..500, 2) {
    if .isPrime(.i) and .isPrime(.sumDigits(.i)) {
        write $"\.i:3;  "
        .count += 1
        if .count div 10: writeln()
    }
}

writeln $"\n\n\.count; additive primes found.\n"