function f = save_test (n)
  if n == 0
    a = 5;
    f = @(x) x + a;
    f (2)
    save -text save_out f
  else
    save_test (n-1)
  end
endfunction