Func Identity(n)=Array id[n,n];[id]:=[1].

Identity(7)
[id]