Update test.hs

La funcion más linda