begin

  integer X
  integername XP
  
  routine test(integer a,b, integername c)
  end

  test(X,XP,X)
  
endofprogram