65472-print.ps

{ 6 5 4 7 2 } {
    dup 0 exch
    {
        (■) print
        1 add 2 copy eq { (\n) } { ( ) } ifelse print
    } repeat
    pop pop
} forall