function f ()
  global H = 1;
endfunction
f;
