Scheme exercise from SICP ch 1

gistfile1.sls

; Exercise 1.3: Define a procedure that takes threee numbers as arguments
; and returns the sum of the squares of the two larger numbers
(define (toptwosq x y z)
  (if (and (< x y) (< x z))
    (+ (* y y) (* z z))
    (if (and (< y x) (< y z))
        (+ (* x x) (* z z))
        (+ (* x x) (* z z))
        )
    )
  )

; Unit test for toptwosq function:
(when (not 13 (toptwosq 1 2 3)) (error "damn"))