LIB "rootsur.lib";
ring r = 0,x,dp;
list l = 1,2,3,4,5;
list rev = reverse(l);
l;
==> [1]:
==>    1
==> [2]:
==>    2
==> [3]:
==>    3
==> [4]:
==>    4
==> [5]:
==>    5
rev;
==> [1]:
==>    5
==> [2]:
==>    4
==> [3]:
==>    3
==> [4]:
==>    2
==> [5]:
==>    1