+
+<:
+$row->{id} or exit;
+:>
+<section>
+<h2>Hierarchy</h2>
+
+<:
+say '<ul>';
+my $parents = $db->select(word => '*', {id => $row->{cat}});
+while (my $ref = $parents->hash) {
+ printf '<li><a href="/writer/%d">%s</a></li>', $ref->{id}, Entity($ref->{form});
+}
+say "<li><strong>$row->{form}</strong></li>";
+my $children = $db->select(word => '*', {cat => $row->{id}});
+while (my $ref = $children->hash) {
+ printf '<li><a href="/writer/%d">%s</a></li>', $ref->{id}, Entity($ref->{form});
+}
+:>
+<li><form action="/writer">
+ <input type="hidden" name="cat" value="<:= $row->{id} :>" />
+ <input type="hidden" name="lang" value="<:= $row->{lang} :>" />
+ <input type="submit" value="Add" />
+</form></li>
+</ul>
+</section>