begin
  routine fred
     return
  end
  integerfn jim
     result = 42
  end
endofprogram