sub sq_mul(a(), b(), c())
	local n, i
	
	n = arraysize(a(), 1)
	
	for i = 1 to n
		c(i) = a(i) * b(i)
	next i
end sub

sub sq_sum(a())
	local n, i, r
	
	n = arraysize(a(), 1)
	
	for i = 1 to n
		r = r + a(i)
	next i
	return r
end sub

dim a(3), b(3), c(3)

a(1) = 1 : a(2) = 3 : a(3) = -5
b(1) = 4 : b(2) = -2 : b(3) = -1
sq_mul(a(), b(), c())

print sq_sum(c())