H4-1-11.ss

;; Homework 4 Part 1 Step 11

;; square will return the square of a numeric input value
(define (square n)
        (if (number? n)
		(* n n)
                'invalid_parameter
        )
)

(define (main)
	(display (square 7)) (newline)
	(display (square (/ 1 7))) (newline)
	(display (square .7)) (newline)
	(display (square 7.7)) (newline)
	(display (square (/ 50 7))) (newline)
	(display (square "Hello World")) (newline)
)