main.hs - add root function