Oplossing

> TreeRep := proc(x)
if type(x, `symbol`) or type(x, `numeric`) then
x;
else
[op(0, x), map(TreeRep, [op(x)])];
fi;
end:

> for n from 1 to nops(ExprList) do
TreeRep(ExprList[n]);
od;

[Maple Math]

[Maple Math]

[Maple Math]

[Maple Math]

[Maple Math]