Добре дошли в DrRacket, версия 7.0 [3m].
Език: R5RS; memory limit: 128 MB.
> (define a 2)
> a
2
> (define a 5)
> a
5
> (define (f x) (+ x (* "abc" #t)))
> (f 2)
. . *: contract violation
  expected: number?
  given: "abc"
  argument position: 1st
  other argumentsДобре дошли в DrRacket, версия 7.0 [3m].
Език: R5RS; memory limit: 128 MB.
> (f 1)
1
> (f 3)
> (+ (f 3) 2)
. . +: contract violation
  expected: number?
  given: #<void>
  argument position: 1st
  other argumentsДобре дошли в DrRacket, версия 7.0 [3m].
Език: R5RS; memory limit: 128 MB.
. ?: bad syntax in: 1
> (and)
#t
> not
#<procedure:not>
> and
. and: bad syntax in: and
> (or)
#f
> (case 3 (((+ 1 2) 4) "moo") (else "meow"))
"meow"
> (case '(+ 1 2) (((+ 1 2) 4) "moo") (else "meow"))
"meow"
> (define l '(+ 1 2))
> (case l ((l 4) "moo") (else "meow"))
"meow"
> (case 'l ((l 4) "moo") (else "meow"))
"moo"
> (f 5)
. . f: undefined;
 cannot reference an identifier before its definition
> Добре дошли в DrRacket, версия 7.0 [3m].
Език: R5RS; memory limit: 128 MB.
> (f 5)
> (case (f 5) ((1 2 3) "small") ((4 5 6) "large") (else "unknown"))
"unknown"
> (case (f 5) ((1 2 3) "small") ((4 5 6) "large") (else "unknown"))
"unknown"
> (case 1 (() 2) ((1) 3))
3