function retval = tst_fun (h, ~)
  keyboard
  disp (get (h, "type"))
endfunction
