Reverse with Oz Cell

Reverse.oz

declare
fun {Reverse L}
   local C in
      C = {NewCell nil}
      for E in L do
	 C := E | @C
      end
      @C
   end
end

declare
{Browse {Reverse [1 2 3 4]}}