(define (square x)
	(* x x))

(define (abs-and-square x y)
	(cond
		((> x 0)
		 (values x (square y)))
		((< x 0)
		 (values (- x) (square y)))))
		
(let-values (((abs square) (abs-and-square 3 4)))
            (display abs)
            (display " ")
            (display square))
(newline)
(let-values (((abs square) (abs-and-square -3 4)))
            (display abs)
            (display " ")
            (display square))