1
Itrev = Main +
2
consts itrev :: 'a list => 'a list => 'a list
3
primrec
4
"itrev [] ys = ys"
5
"itrev (x#xs) ys = itrev xs (x#ys)"
6
end