Making an enty list, devided by "tags"

Yujiro Araki of "Koiki-Kukan" wrote a method of making an entry list, divided by "tags".

This is a quotation of his entry.

<mt:Entries>
  <mt:EntryIfTagged>
    <mt:EntryTags>
      <mt:TagName setvar="tag_name" />
      <mt:SetVarBlock name="entry_title">
        <li><a href="<mt:EntryPermalink />"><mt:EntryTitle /></a></li>
      </mt:SetVarBlock>
      <mt:SetVar name="data{$tag_name}" value="$entry_title" append="1" />
    </mt:EntryTags>
  </mt:EntryIfTagged>
</mt:Entries>
 
<mt:loop name="data">
<ul><mt:GetVar name="__key__" />
  <li>
    <ul>
      <mt:GetVar name="__value__" />
    </ul>
  </li>
</ul>
</mt:loop>