begin
  switch jim(0:3)

jim(2):
  -> fred

fred:
  ->jim(2)

eof:
endofprogram