Program 6-4 for those searching this topic later...

D