HaskellCourse/listfct.hs

myexchanger xs zs = case xs of
	[] -> zs
	y:ys -> myexchanger ys (y:zs)

myreverse xs = myexchanger xs []