function fh = foo ()
  fh = @foosuba;
end
function foosuba ()
  persistent val;
  if (isempty (val))
    fprintf ('initializing foosuba:val\n');
    val = 0;
  end
  fprintf ('foosuba\n');
  foosubb ();
end
function foosubb ()
  persistent val;
  if (isempty (val))
    fprintf ('initializing foosubb:val\n');
    val = 0;
  end
  fprintf ('foosubb\n');
  %% fprintf ('uncomment this line\n');
end
