sub make_rows {
   @_ = map { Tr((map { td($_) } @$_)) } @_;
   return wantarray ? @_ : join('',@_);
}