%tableau%

/ccarre {
    newpath
    moveto
    0 100 rlineto
    100 0 rlineto
    0 -100 rlineto
    closepath
    stroke
} def

250 0 translate

45 rotate
4 {
    4 {
        100 0 translate
        0 0 ccarre
    } repeat
    -400 100 translate
} repeat