begin
  routine do(name x)
    name q
    q == x
  end

  name y

  real r
  integer i

  y == r
  y == i

  do(r)
  do(i)
  do(y)
  
endofprogram