//1.3 -> map(DepartmentName*GrossIncome)
//:Department -> (DepartmentName*GrossIncome) List
let rec ePaG (name,subdeps,income)  =
    match subdeps with
    |[]         -> [(name,income)]
    |[x]        -> (name,income)::(ePaG x)
    |dep::dList -> (ePaG dep)::(ePaG dList)