Przechodzenie drzewa pre-order (iteracyjnie)

Witam

Mam taki kod na przechodzenie drzewa binarnego rekurencyjnie.

PRE-ORDER(x)
	if x <> NIL then
		wypisz (x)
		PRE-ORDER(x.left)
		PRE-ORDER(x.right)

I mam go przerobić na przechodzenie drzewa, lecz iteracyjnie, czyli przy użyciu pętli.

Użyj stosu.