Select Code to Download

sub h{
#        1         2         3         4
#23456789_123456789_123456789_123456789_12345678
($_,$s)=@_;y/A-Z/:-T/;$s=36*$s-48+ord for/./g;$s
}

sub convert_0 {
0
}