Task

Write a program to find the sum of squares of a numeric vector.

The program should work on a zero-length vector (with an answer of   0).



Related task

   Mean


0 tolist
10 for 0 put endfor
 
0 swap len for
	get
	2 power rot + swap
endfor
 
drop print	/# 385 #/