function retval = leak_main_fcn (p)
  R = p*rand(1);
  leak_anon_fcn = @() 1./ R;

  function retval = leak_nested_fcn ()
    retval  = leak_anon_fcn () ;
  endfunction

  retval = leak_nested_fcn ();

endfunction

