--promociono :: (Int, Int) -> Bool
--promociono (a, b) = ((a+b) > 14) && (a >=6) && (b >= 6)

dioRecuperatios :: (Int, Int) -> Bool
dioRecuperatios tupla = ((>0).fst) tupla || ((>0).snd) tupla

recuperoDeGusto :: ((Int, Int),(Int, Int)) -> Bool
recuperoDeGusto tupla = (dioRecuperatios.snd) tupla && (promociono.fst) tupla