%%HP: T(3)A(D)F(.);
@ PERIODIC by ?
DIR
  SYMB
    \<< ELM SWAP POS DUP { 1 + 2 / ANUM } IFT
    \>>
  ANUM
    \<< \-> N
      \<< N "ATOMIC#" \->TAG
          NAM N GET "NAME" \->TAG
          ELM N 2 * 1 - GET "SYMBOL" \->TAG
          ELM N 2 * GET "ATWT" \->TAG
      \>>
    \>>
  NAM { "Hydrogen" "Helium" "Lithium" "Beryllium" "Boron" "Carbon" "Nitrogen"
"Oxygen" "Flourine" "Neon" "Sodium" "Magnesium" "Aluminum" "Silicon"
"Phosphorous" "Sulfur" "Chlorine" "Argon" "Potassium" "Calcium" "Scandium"
"Titanium" "Vanadium" "Cromium" "Manganese" "Iron" "Cobalt" "Nickel" "Copper"
"Zinc" "Gallium" "Germanium" "Arsenic" "Selenium" "Bromine" "Krypton"
"Rubidium" "Strontium" "Yttrium" "Zirconium" "Niobium" "Molybdenum"
"Technetium" "Ruthenium" "Rhodium" "Palladium" "Silver" "Cadmium" "Indium"
"Tin" "Antimony" "Tellurium" "Iodine" "Xenon" "Cesium" "Barium" "Lanthanum"
"Cerium" "Praseodymeum" "Neodymium" "Promethium" "Samarium" "Europium"
"Gadolinium" "Terbium" "Dyprosium" "Holmium" "Erbium" "Thulium" "Ytterbium"
"Lutetium" "Hafneum" "Tantalum" "Tungsten" "Rhenium" "Osmium" "Iridium"
"Platinum" "Gold" "Mercury" "Thallium" "Lead" "Bismuth" "Polonium" "Astatine"
"Radon" "Francium" "Radium" "Actinium" "Thorium" "Protactinium" "Uranium"
"Neptunium" "Plutonium" "Americium" "Curium" "Berkelium" "Californium"
"Einsteinium" "Fermium" "Mendelevium" "Nobilium" "Lawrencium"
"Unknown" "Unknown" "Unknown" "Unknown" "" "Unknown" }
  ELM { "H" 1.0079 "He" 4.0026 "Li" 6.941 "Be" 9.0122 "B" 10.81 "C" 12.011
"N" 14.007 "O" 15.999 "F" 18.998 "Ne" 20.179 "Na" 22.99 "Mg" 24.305
"Al" 26.982 "Si" 28.086 "P" 30.974 "S" 32.06 "Cl" 35.453 "Ar" 39.948 "K" 39.098
"Ca" 40.08 "Sc" 44.956 "Ti" 47.9 "V" 50.941 "Cr" 51.996 "Mn" 54.938 "Fe" 55.847
"Co" 58.933 "Ni" 58.71 "Cu" 63.546 "Zn" 65.38 "Ga" 69.72 "Ge" 72.59 "As" 74.922
"Se" 78.96 "Br" 79.904 "Kr" 83.8 "Rb" 85.468 "Sr" 87.62 "Y" 88.906 "Zr" 91.22
"Nb" 92.906 "Mo" 95.94 "Tc" 97 "Ru" 101.07 "Rh" 102.91 "Pd" 106.4 "Ag" 107.87
"Cd" 112.41 "In" 114.82 "Sn" 118.69 "Sb" 121.75 "Te" 127.6 "I" 126.9 "Xe" 131.3
"Cs" 132.91 "Ba" 137.33 "La" 138.91 "Ce" 140.12 "Pr" 140.91 "Nd" 144.24
"Pm" 145 "Sm" 150.4 "Eu" 151.96 "Gd" 157.25 "Tb" 158.93 "Dy" 162.5 "Ho" 164.93
"Er" 167.26 "Tm" 168.93 "Yb" 173.04 "Lu" 174.97 "Hf" 178.49 "Ta" 180.95
"W" 183.85 "Re" 186.21 "Os" 190.2 "Ir" 192.22 "Pt" 195.09 "Au" 196.97
"Hg" 200.59 "Tl" 204.37 "Pb" 207.2 "Bi" 208.98 "Po" 209 "At" 210 "Rn" 222
"Fr" 223 "Ra" 226.03 "Ac" 227 "Th" 232.04 "Pa" 231.04 "U" 238.03 "Np" 237.05
"Pu" 244 "Am" 243 "Cm" 247 "Bk" 247 "Cf" 251 "Es" 254 "Fm" 257 "Md" 258
"No" 259 "Lr" 260 "Unk" 261 "Unk" 262 "Unk" 263 "Unk" 264 "Unk" 0 "Unk" 266 }
END