(define x p_int 12)
;(define y int 12)


;(%+ 3 4)
;(define add1 (-> int int) (lambda ((x int)) (%+ x 1)))

;(define alt_add (-> int (-> int int)) (lambda (x) (lambda (y) (%+ x y))))