@@ -67,10 +67,10 @@ data ListMarker = NoMarker
6767 deriving (Show, Read, Eq, Ord)
6868
6969listMarkerToId :: ListMarker -> String
70−listMarkerToId NoMarker = "0"
71−listMarkerToId BulletMarker = "1"
70+listMarkerToId NoMarker = "990"
71+listMarkerToId BulletMarker = "991"
7272listMarkerToId (NumberMarker sty delim n) =
73− styNum : delimNum : show n
73+ '9' : '9' : styNum : delimNum : show n
7474 where styNum = case sty of
7575 DefaultStyle -> '2'
7676 Example -> '3'