(pu)
(lt 90)
(fd 200)
(lt 90)
(speed 0)
(define (DrawPerson size)
	(pd)
	(fd size)
	(lt 45)
	(fd (/ size 2))
	(bk (/ size 2))
	(rt 90)
	(fd (/ size 2))
	(bk (/ size 2))
	(rt 135)
	(forward (/ size 2))
	(rt 90)
	(forward (/ size 3))
	(bk (* 2 (/ size 3)))
	(fd (/ size 3))
	(lt 90)
	(fd (/ size 2))
	(rt 90)
	(circle (/ size 3))
	(rt 90)
	(pu)
)

;(DrawPerson 30)
(define (DrawPeepsAndSetUp pop ang dis size)
	(DrawPerson size)
	(lt 100)
	(fd dis)
	(rt 100)
	(rt ang)
	(DrawPeople (- pop 1) (+ 5 ang) (+ 10 dis) size)
)

(define (DrawPeople pop ang dis size)
	(if (< 0 pop)
		(DrawPeepsAndSetUp pop ang dis size)
	)
)
(define (DrawStone hei wid)
	(rc)
	(pd)
	(begin_fill)
	(rt 85)
	(fd hei)
	(rt 95)
	(fd wid)
	(rt 85)
	(fd hei)
	(rt 95)
	(fd wid)
	(end_fill)
	(pu)
)
(define (DrawRocksAndSetUp num hei wid)
	(DrawStone hei wid)
	(bk (/ wid 8))
	(rt 90)
	(fd hei)
	(lt 90)
	(DrawCascade (- num 1) hei wid)
)
(define (DrawCascade num hei wid)
	(if (< 0 num)
		(DrawRocksAndSetUp num hei wid)
		()
	)
)
(define (DrawCascadeAndSetUp cascs num hei wid) 
	(DrawCascade num hei wid)
	(ReturnEdge  (- 270 (* (- cascs 1)  (* wid 1.5))))
	(DrawCliff (- cascs 1) num hei wid)
)
(define (DrawCliff cascs num hei wid)
	(if (< 0 cascs)
		(DrawCascadeAndSetUp cascs num hei wid)
	)
)
(DrawPeople 8 10 45 30)
(define (ReturnEdge for)
	(goto 0 0)
(seth 270)
(fd 200)
(lt 90)
(fd 41)
(lt 90)
(pd)
(bk 250)
(fd for)
(pu)
)
(ReturnEdge 270)
(DrawCliff 3 30 11 56)
(ht)