Tree tanslated to pascal...I hope I never have to write pascal again.