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>

{Retrieve the first "item" element}
(   nestML$(get$("doc.xml",X,ML))
  :   ?
      ( inventory
      . ?,? (section.?,? ((item.?):?item) ?) ?
      )
      ?
& out$(toML$!item)
)
 
{Perform an action on each "price" element (print it out)}
(   nestML$(get$("doc.xml",X,ML))
  :   ?
      ( inventory
      .   ?
        ,   ?
            ( section
            .   ?
              ,   ?
                  ( item
                  .   ?
                    ,   ?
                        ( price
                        .   ?
                          ,   ?price
                            & out$!price
                            & ~
                        )
                        ?
                  )
                  ?
            )
            ?
      )
      ?
|
)
 
{Get an array of all the "name" elements}
(   :?anArray
  &   nestML$(get$("doc.xml",X,ML))
    :   ?
        ( inventory
        .   ?
          ,   ?
              ( section
              .   ?
                ,   ?
                    ( item
                    .   ?
                      ,   ?
                          ( name
                          .   ?
                            ,   ?name
                              & !anArray !name:?anArray
                              & ~
                          )
                          ?
                    )
                    ?
              )
              ?
        )
        ?
| out$!anArray {Not truly an array, but a list.}
);