_Title "Random Latin Squares - Rosetta Code" ' b+ 2022-03-25 ' ref http://rosettacode.org/wiki/Random_Latin_squares
Print "As required by RC:" n = 5
RandomLatinSquare n, b%()
displayLatinSquare n, b%()
RandomLatinSquare n, b%()
displayLatinSquare n, b%()
a(i) = i: b(i) = i
RtnArray%
(j
, i
) = (a
(j
) + b
(i
)) Mod n