User:TonyBot/test1

(define (heading n x) (let ((s (make-string n #\=))) (string-append s x s))) (define (signature. x) "--~")

(display (heading 2 "Hello Wikipedia!"))(newline)

(display "The square on the hypotenuse is ")(display (+ (* 3 3) (* 4 4 ))) (display ". ")(display (signature))(newline)