%% syntaxe : n idmatrix --> depose matrice identite n x n sur la pile /idmatrix { 5 dict begin /n exch def /M n n newmatrix def /i 0 def n { M i i 1 put_ij /i i 1 add store } repeat M end } def