begin
  begin
    routine fred
      integer i = 1
    end
    fred
  end  
endofprogram