Update test.hs

Agregué la mejor función del mundo! :D