pandoc/test/command/6466.md

% pandoc -f org -t native
Stuff

#+INCLUDE: "command/6466-beg.hs" src haskell :lines "-4"
#+INCLUDE: "command/6466-mid.hs" src haskell :lines "3-6"
#+INCLUDE: "command/6466-end.hs" src haskell :lines "3-"
#+INCLUDE: "command/6466-whole.hs" src haskell :lines "-"

More stuff
^D
[ Para [ Str "Stuff" ]
, CodeBlock
    ( "" , [ "haskell" ] , [] ) "want :: Int\nwant = 42\n\n"
, CodeBlock
    ( "" , [ "haskell" ] , [] ) "want :: Int\nwant = 42\n\n"
, CodeBlock
    ( "" , [ "haskell" ] , [] ) "want :: Int\nwant = 42\n"
, CodeBlock
    ( "" , [ "haskell" ] , [] ) "want :: Int\nwant = 42\n"
, Para [ Str "More" , Space , Str "stuff" ]
]