(defn pascal_tri [x y]
  (if (or (= x y)(= y 0))
    1
    (+ (pascal_tri (- x 1)(- y 1))
       (pascal_tri (- x 1) y))
))