Here is a square:

``` {.diagram-haskell echo=Above}
example = square 1
```