Create recursive.hs