(let x (function int [function in int num]
    (print "recursively called" (+ num 1) "times") 
    (in in (+ num 1))
))

(x x 1)