(declare g)

(define f (n)
    (do
        (print "f" n)
        (if (<= 100 n) n (g (* 2 n)))))

(define g (n)
    (do
        (print "g" n)
        (if (<= 100 n) n (f (+ n 1)))))

(print (f 1))