(define maxSquareVal
(lambda (l)
(let ((sqrl (map (lambda (x) (* x x)) l)))
(reduce
(lambda (x y) (if (> x y) x y))
(cdr sqrl)
(car sqrl)))))