begin
  ownintegerarray hex(0:1) = x'12', x'ab'
  integer i
  switch fred(0:255)
  ->fred(x'ab')
fred(x'ab'):
  i = x'ab'
endofprogram