The CountSquares command returns the number of squares of a magma.

$\mathrm{with}\left(\mathrm{Magma}\right)\:$

$m≔⟨⟨⟨1\|2\|3⟩\,⟨2\|3\|1⟩\,⟨3\|1\|1⟩⟩⟩$

$m≔\left[\begin{array}{ccc}1& 2& 3\\ 2& 3& 1\\ 3& 1& 1\end{array}\right]$

$\mathrm{CountSquares}\left(m\right)$

$2$

The Magma[CountSquares] command was introduced in Maple 15.

For more information on Maple 15 changes, see Updates in Maple 15.