#include "stdlib.lisp"

(declare g)

(define f (n)
    (do
        (print (concat "f " (number->string n)))
        (if (>= n 100) n (g (* 2 n)))))

(define g (n)
    (do
        (print (concat "g " (number->string n)))
        (if (>= n 100) n (f (+ n 1)))))

(print (f 1))