let
basename a = fst a