1Buffer input.adb /^separate (Buffer);$/;" p roles:subunit 2Test input.adb /^package body Test is$/;" p package:Buffer roles:def 3Parent input-1.adb /^package body Parent is$/;" p roles:def 4Variable input-1.adb /^ Variable : String := "Hello, there.";$/;" v package:Parent file: roles:def 5Parent input-1.adb /^separate(Parent)$/;" p roles:subunit 6Inner input-1.adb /^procedure Inner is$/;" r package:Parent roles:def 7