startshape sqgrid

path SQ {
    MOVETO {x 0.5 y -0.5}
    4* {r 90} LINETO {x 0.5 y 0.5}
    CLOSEPOLY {}
    STROKE {width 0.1}
}

rule sqgrid {
    SQ {s 20 x 10 y 10}
    10 * {y 2} {
        10 * {x 2} SQ {}
    }
}

