`````
% pandoc -t native
  ```haskell
  let x = y
in y
   ```
^D
[ CodeBlock ( "", [ "haskell" ], [] ) "let x = y\nin y" ]
`````
`````
% pandoc -t native
 ~~~ {.haskell}
  let x = y
 in y +
y +
 y
~~~
^D
[ CodeBlock ( "", [ "haskell" ], [] ) " let x = y\nin y +\ny +\ny" ]
`````