Añado un fold a main.hs