$ erc-coff-gnatkr very_long_unit_name.ads velounna.ads $ erc-coff-gnatkr very_long_unit_name.ads 6 vlunna.ads $ erc-coff-gnatkr very_long_unit_name.ads 0 very_long_unit_name.ads $ erc-coff-gnatkr grandparent-parent-child.ads grparchi.ads $ erc-coff-gnatkr Grandparent.Parent.Child grparchi