Update a.hs

Agregado función func2