; some functions

(define (square x) (* x x))
(define (four-power x) (* (square x) (square x)))

; now run some simple commands:

(display "we are now running a Scheme program..")

(display "\n4^2 =")
(display (square 4))

(display "\n4^4 =")
(display (four-power 4))

(display "\n4^8 =")
(display (four-power (square 4)))

;(exit)				;; this aborts the main program
;(quit)				;; this aborts the main program
;; if no exit or quit, then exits back to main normally
