Logo - Pascal :r :s - binomni koeficijent

;; http://www.wolframalpha.com/input/?i=Plot%5B%7B2x%3B+x%5E2%7D%2C%7Bx%2C0%2C100%7D%5D

to pascal :r :s

make "b 1
make "n 1

make "r :r - 1
make "s :s - 1

for [i (:r-:s+1) :r 1] [
	make "b :b * :i
]

for [i 1 :s 1] [
	make "n :n * :i
]

op :b/:n
end