begin
  routine outer(integer i)
    printstring("Outer-level version was called"); newline
  end
  routine inner
    routine test1
    end

    outer(10)

    routine outer(integer i)
      printstring("Inner-level version was called.  Probably should not have been!"); newline
      printstring("This is only likely to have happened if nested procedures were badly"); newline
      printstring("exbedded in the conversion to C ..."); newline
    end

    test1
  end
  inner
endofprogram