begin
  integer i

  routine dosomething(integername p)
    p = p - 1
    dosomething(p) if p>0
  end

  i = 10
  dosomething(i)
  
endofprogram