(set! pcs-debug-mode 1)
(define (sqr x) (* x x))
(define (Sum-Sqr x y z) (+ (sqr x) (sqr y) (sqr z)))