Soluzione

> delta := (i,j) -> if i = j then 1 else 0 end if:
id := n -> matrix(n,n,delta);

> id(10);