function fh = nestfcn (a)
  b = magic (4);
  function r = nst (s)
    r = eval (s);
  end
  fh = @nst;
end