Unnamed

#lang r5rs

(define (square l)
  (if (null? l)
      '()
      (cons (* (car l) (car l))
            (square (cdr l)))))

(square '(1 2 3 4 5))


===================================

Bienvenue dans DrRacket, version 5.1 [3m].
Langage: R5RS; memory limit: 128 MB.
. #%module-begin: illegal use (not a module body) in: (#%module-begin (define (square l) (if (null? l) (quote ()) (cons (* (car l) (car l)) (square (cdr l))))) (square (quote (1 2 3 4 5))))
>