exilyte

## ex_3-3-1.rkt
;; Contract: print : expr expected_expr ->
;;expr "should be" expected_expr

;; Purpose: to test expressions to find out whether they're
;; correct or not

;; Examples: (print (inches->cm 22/7) 7.98287514)
;;           => "3.142857142857143 should be 7.98287514"

;; Definition: [refines the header]
	;; Contract: print : expr expected_expr ->
	;;expr "should be" expected_expr

	;; Purpose: to test expressions to find out whether they're
	;; correct or not

	;; Examples: (print (inches->cm 22/7) 7.98287514)
	;; => "3.142857142857143 should be 7.98287514"

	;; Definition: [refines the header]