@g=join('','0223','211'x3,'1')=~/./g;$\=".\n";@l=map{chr((1
<<5)*3+$g[$_]+eval(join'+',@g[0..($_==0?0:$_-1)])+1)}(0..$#g
);print join' ',map ucfirst,map{join'',map$l[$_],map$_-10,
/../g}qw(14232122 10171822131220 19122016 131011151220');