for$;(split m;\{|\};
,q;2551241957{3013653325}3009549319;
){((print((sort{uc($a)cmp(uc($b))}split#;
m,d|m,i,qq,aMrmudcDPmkM\040dJModsMndeDldtdhMzDWdQms,,16)[$;
&15])),$;>>=4)while$;};