接下来我会写一写Scheme的学习笔记。嗯，Scheme是属于小众的语言，但合适用来教学的。
什么是lat，就是遍历list里的每一个S-expression,假设发现当中某个不是atom的，则返回false，否则返回true。
(define atom?
(lambda (x)
(and (not (pair?
x)) (not (null? x)))))
(define lat?
(lambda (l)
(cond
((null? l) #t)
((atom? (car l)) (lat?
(cdr l)))
(else #f))))
(lat? '())
(lat? '(jack sprat could eat no chicken fat))
(lat? '((jack) sprat))
(lat?
'(jack (sprat could) eat))