Little Scheme is a racket #lang
that provides the subset of Scheme used in The Little Schemer, and nothing else.
#lang little-scheme
(define lat?
(lambda (l)
(cond
((null? l) #t)
((atom? (car l)) (lat? (cdr l)))
(else #f)))
(lat? '(a b c)) ;=> #t