Select Code to Download

#!/usr/bin/perl -w
use strict;
...
1045316469 1045316394
1045316492 1045316407
1045316505 1045316492

$ perl fatherson.pl 1045316419 1045316492
Father of 1045316419 is 1045316407
Father of 1045316492 is 1045316407

sub print_lineage {
    my ($x) = @_;
...
    }
}
print_lineage $_ for @ARGV;

$ perl fatherson.pl 1045316419 1045316469
Lineage of 1045316419 is 1045316407, 1045316394, 1045316144
Lineage of 1045316469 is 1045316394, 1045316144

---
print map { my ($m)=1<<hex($_)&11?' ':'';
$m.=substr('AHJPacehklnorstu',hex($_),1) }
split //,'2fde0abe76c36c914586c';