%-=qw(R_ 39 n} 59);for $-(sort keys(%-)){my $x,@_,$$;($a,$b)= 
split //,$-;for(ord($a)..ord($b)){splice(@-,($x+hex($-{$-})),
0,$-[$x+++$_]);}}  $^_="0d0b1e9565c7908039e440f17025a"; BEGIN 
{@-=                                                      qw(

    H                                                  He
    Li Be                               B  C  N  O  F  Ne
    Na Mg                               Al Si P  S  Cl Ar
    K  Ca Sc Ti V  Cr Mn Fe Co Ni Cu Zn Ga Ge As Se Br Kr
    Rb Sr Y  Zr Nb No Tc Ru Rh Pd Ag Cd In Sn Sb Te I  Xe
    Cs Ba La Hf Ta W  Re Os Ir Pt Au Hg Tl Pb Bi Po At Rn
    Fr Ra Ac Rf Db Sg Bh Hs Mt Uun

          Ce Pr Nd Pm Sm Eu Gd Tb Dy Ho Er Tm Yb Lu
          Th Pa U  Np Pu Am Cm Bk Cf Es Fm Md No Lr

);} $^_=~s/[19e7]//g;for $e(reverse unpack("A2"x(length($^_)/
2),$^_)){$_.=$-[hex($e)-1];}y/a-zA-Z/a-hjj-za-z/s;print;
