begin

  integer X
  integername XP
  
  integermap test(integer a,b, integername c)
    owninteger Q = 0
    result == Q
  end

  X = test(X,XP,X)

endofprogram