[easy] sum of primes - tcl