let
get_fname (f :
Sast
.func_def) = to_fname f.uid f.name