* From http://rosettacode.org/wiki/Sum_of_squares#SNOBOL4, with corrections

        define('ssq(a)i') :(ssq_end)
ssq     i = i + 1
        ssq = ssq + (a<i> * a<i>) :s(ssq)f(return)
ssq_end

        str = '1 2 3 5 7 11 13 17 19 23'
		a = array(10)
		
loop    i = i + 1
        str len(p) span('0123456789') . a<i> @p :s(loop)

        output = str ' -> ' ssq(a)
end