added rosettacode.org/wiki/Identity_matrix#FunL task