#lang slideshow
(define (qu x)
  (* x x))

(define (hoch4 x)
  (qu (qu x)))

(hoch4 2)