#lang scheme

;; square : number -> number
;; to produce the square of x
(define (square x)
  (* x x))