!h1-1
text
...
!h2-1
text
...
!h1-2
text
...
!h2-2
text
....
!h3-2
text
...
etc
\define extract()
<$list filter="$(t)$ +[splitregexp[!]prefix[h]]">
</$list>
\end
<$set filter="[[mytid]get[text]]" name=t>
<<extract>>
</$set>
\define extract()
<$list filter="""$(t)$ +[splitregexp[!]prefix[h]]""">
<
/$list>
\end
<$set value={{mytid}} name=t>
<<extract>>
</$set>
<$list filter="""[{mytid}split[
]prefix[!]splitregexp[!]]""">
</$list>
! heading one
! another heading one
<$list filter="""[{mytid}split[
]trim[]prefix[!]splitregexp[!]!is[blank]]""">
</$list>