`````
% 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"
]
`````