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