elements$=    "hydrogen     helium        lithium     beryllium   boron        carbon "     +
              "nitrogen     oxygen        fluorine    neon        sodium       magnesium "  +
              "aluminum     silicon       phosphorous sulfur      chlorine     argon "      +
              "potassium    calcium       scandium    titanium    vanadium     chromium "   +
              "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      praseodymium neodymium "  +
              "promethium   samarium      europium    gadolinium  terbium      dysprosium " +
              "holmium      erbium        thulium     ytterbium   lutetium     hafnium "    +
              "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  nobelium "   +
              "lawrencium   rutherfordium dubnium     seaborgium  bohrium      hassium "    +
              "meitnerium   darmstadtium  roentgenium copernicium nihonium     flerovium "  +
              "moscovium    livermorium   tennessine  oganesson"
revision$=    "2020-11-11"
Dim result$(0)
If OpenConsole() And CreateRegularExpression(0,"[a-z]{1,18}")
  nbf=ExtractRegularExpression(0,elements$,result$())
  PrintN("Last revision: "+revision$+
         ~"\nNumber of elements: "+Str(nbf)+
         ~"\nLast element: "+result$(nbf-1))
  Input()
EndIf