begin
  routine do(integer val, integername pointer)
    pointer = val
  end

  integername pointer
  integer i
  
  do(3, i)
  do(3, pointer)
  
endofprogram