begin
  routine two(integer a, b)
    integer c = a+b
  end
  integer p,q
  p = 3
  q = 4
  two(p, q)
endofprogram