begin
  integer i
  -> fred
jim:
  i = 1
fred:
  i = 2
  ->fred
endofprogram