test/command/7397.md


1
2
3
4
5
6
7
8
9
10
11
12
13
14

````
% pandoc -t markdown
~~~~ { .haskell startFrom="100"}
qsort []     = []
qsort (x:xs) = qsort (filter (< x) xs) ++ [x] ++
               qsort (filter (>= x) xs)
~~~~
^D
``` {.haskell startFrom="100"}
qsort []     = []
qsort (x:xs) = qsort (filter (< x) xs) ++ [x] ++
               qsort (filter (>= x) xs)
```
````