(define (pascal levels)
  (define (print-level level current)
    (cond ((> current level) (newline))
	  (else (display (pascal-elem level current))
		(display " ")
		(print-level level (1+ current)))))
  (define (pascal-elem i j)
    (cond ((or (= i 1)(= j 1)(= i j)) 1)
	  (else (+ (pascal-elem (-1+ i)(-1+ j))
		   (pascal-elem (-1+ i) j)))))
  (begin
    (cond ((= levels 1) (print-level 1 1))
	  (else (pascal (-1+ levels))
		(print-level levels 1)))
   #t))
;Value: pascal
(pascal 1)