define let set! lambda if cond identity null null? not cons car cdr list reverse length foldl map pi = + - * expt add1 sub1