sub div {
  my ($t, $elt,$para) = @_;
...