begin
  
  routine top level 1(integer depth)

   print string("Entering call of top level 1: depth = "); printstring(itos(depth, -1)); newline

  end

  top level 1(10)

endofprogram