let h underliner t = let title = to_markdown_string t in let l = String.length title in let underline = String.make l underliner in verbatim title % n % verbatim underline % new_par