function s = f1 ()
  mlock ();
  persistent x 
  if isempty(x)
    x = @gg;
  end
  s = x;
end