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

(define (abs_and_square x y)
	(
		(if (> x 0)
		    (x (square y))
		    ((- x) (square y)))))
		   
(display (abs_and_square 3 4))