let basename a = fst a