Como controlar a invariância da escala?

Estou tentando juntar vários diagramas em uma espécie de mesa. Eu acho que isso é chamado de "impressão de índice" , as pessoas que fazem fotografia fazem isso quando precisam revisar muitas fotografias ao mesmo tempo. Enfim, este é o código: main :: IO () main = mainWith @(Diagram B) $ (tile ....