; CTMCP 1.5
; 
(define (pascal n)
  (if (eq? n 1)
    '(1)
    (let ((prev (pascal (- n 1))))
      (addlist (shiftleft prev) (shiftright prev)))))
 
(define (shiftleft lst)
  (if (null? lst)
    '(0)
    (cons (car lst) (shiftleft (cdr lst)))))
 
(define (shiftright lst)
  (cons 0 lst))
 
(define (addlist lst1 lst2)
  (if (null? lst1) '()
    (cons (+ (car lst1) (car lst2)) (addlist (cdr lst1) (cdr lst2)))))
 
(pascal 32)