perl> print "$_ : ", adistr( pack( 'A'.length, 'source' ), $_ ) for @inputs;;
donor_dedupe_source :  13
indicted_video_source :  15
source1 :  1