begin

  integer X
  integername XP
  
  integerfn test(integer a,b, integername c)
    result = 1
  end

  X = test(X,XP,X)

endofprogram