#lang racket
(define (puis2 x)(* x x))
(define (puis4 x)(puis2 (puis2 x)))