let basename x = 
         let name = D.Compinfo.basename  x.fcomp in
           (name^"_"^x.fname)