Perform the following three XPath queries on the XML Document below:

 //item[1]: Retrieve the first "item" element 
 //price/text(): Perform an action on each "price" element (print it out)
 //name: Get an array of all the "name" elements
XML Document:

<inventory title="OmniCorp Store #45x10^3">
  <section name="health">
    <item upc="123456789" stock="12">
      <name>Invisibility Cream</name>
      <price>14.50</price>
      <description>Makes you invisible</description>
    </item>
    <item upc="445322344" stock="18">
      <name>Levitation Salve</name>
      <price>23.99</price>
      <description>Levitate yourself for up to 3 hours per application</description>
    </item>
  </section>
  <section name="food">
    <item upc="485672034" stock="653">
      <name>Blork and Freen Instameal</name>
      <price>4.95</price>
      <description>A tasty meal in a tablet; just add water</description>
    </item>
    <item upc="132957764" stock="44">
      <name>Grob winglets</name>
      <price>3.56</price>
      <description>Tender winglets of Grob. Just add water</description>
    </item>
  </section>
</inventory>

 
-module(xml_xpath).
-include_lib("xmerl/include/xmerl.hrl").
 
-export([main/0]).
 
main() -> 
   XMLDocument = 
      "<inventory title=\"OmniCorp Store #45x10^3\">
        <section name=\"health\">
          <item upc=\"123456789\" stock=\"12\">
            <name>Invisibility Cream</name>
            <price>14.50</price>
            <description>Makes you invisible</description>
          </item>
          <item upc=\"445322344\" stock=\"18\">
            <name>Levitation Salve</name>
            <price>23.99</price>
            <description>Levitate yourself for up to 3 hours per application</description>
          </item>
        </section>
        <section name=\"food\">
          <item upc=\"485672034\" stock=\"653\">
            <name>Blork and Freen Instameal</name>
            <price>4.95</price>
            <description>A tasty meal in a tablet; just add water</description>
          </item>
          <item upc=\"132957764\" stock=\"44\">
            <name>Grob winglets</name>
            <price>3.56</price>
            <description>Tender winglets of Grob. Just add water</description>
          </item>
        </section>
      </inventory>",
   {Document,_} = xmerl_scan:string(XMLDocument),
 
   io:format("First item:\n~s\n",
      [lists:flatten(
         xmerl:export_simple(
            [hd(xmerl_xpath:string("//item[1]", Document))], 
            xmerl_xml, [{prolog, ""}]))]),
 
   io:format("Prices:\n"),
   [ io:format("~s\n",[Content#xmlText.value]) 
      || #xmlElement{content = [Content|_]} <- xmerl_xpath:string("//price", Document)],
 
   io:format("Names:\n"),
   [ Content#xmlText.value 
      || #xmlElement{content = [Content|_]} <- xmerl_xpath:string("//name", Document)].
 