-- call boo:
(top)
(top)
boo
(top)
-- call foo:
(top)
(top)
(top)
foo
(top)
