begin

  integer X
  integername XP

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

  X = test(X,XP,XP)

endofprogram