#include <jambo.h>

Main
    Dim( 10,10 ) as eyes 'UMatrix'

    Printnl ' "UNIT MATRIX:\n", UMatrix '

    /* Classical method */

    Dim (10,10) as zeros (ZM)
    i=1
    Iterator ( ++i, #(i<=10), #( ZM[i,i]=1 ) )
    Printnl ' "UNIT MATRIX:\n", ZM '

    /* unit matrix non square*/
    Dim ( 5,8 ) as eyes 'rare unit matrix'

    Printnl ' "RARE UNIT MATRIX:\n", rare unit matrix '
End