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