sumaFe :: Fecha -> Int -> Fecha 
sumaFe (Fec f) d = Fec (f+d)

diasEntreFe :: Fecha -> Fecha -> Int
diasEntreFe (Fec f1) (Fec f2) = f2 - f1