begin 
  routine  x (integer  a)
    routine  y (integer  name  array  (1) name  b)
    end 
  end 
end