(func sum-of-squares (lst :[:int])
    (reduce + (map (lambda (x) (* x x)) lst) 0))