rendered paste body--- data Teatro = Tea [Sala] [Funcion] [Nombre] [Moneda] [Entrada] deriving (Eq)
---- Ent Fecha Hora Nombre Int Int Int
ejemplo = Tea [sala1, sala2] [funcion1, funcion2] ["juance", "pene"] [100, 300] [ (nuevaE (nuevaFe 4 11 5) (nuevaH 16 43) "juan" 0 0 0), (nuevaE (nuevaFe 4 11 5) (nuevaH 16 43) "juan" 0 0 5), (nuevaE (nuevaFe 4 11 5) (nuevaH 16 43) "juan" 0 1 1), (nuevaE (nuevaFe 4 11 5) (nuevaH 16 43) "juan" 1 0 2), (nuevaE (nuevaFe 4 11 5) (nuevaH 16 43) "juan" 1 0 3), (nuevaE (nuevaFe 4 11 5) (nuevaH 16 43) "juan" 1 1 3), (nuevaE (nuevaFe 4 11 5) (nuevaH 16 43) "juan" 2 0 5), (nuevaE (nuevaFe 4 11 5) (nuevaH 16 43) "juan" 2 1 1), (nuevaE (nuevaFe 4 11 5) (nuevaH 16 43) "juan" 2 1 4), (nuevaE (nuevaFe 6 11 5) (nuevaH 16 43) "juano" 0 0 0)]
sala1 = nuevaS "juan" [[6,6],[6,6], [6,6] ]
funcion1 = Fun "juan" "pingo" (nuevaFe 4 11 5) (nuevaH 16 43) 15 [10,30,60] ["juance","pene"] ["ponce","pitin"] [50,10]
funcion2 = Fun "juano" "caca" (nuevaFe 6 11 5) (nuevaH 16 43) 30 [10] ["juance","pene"] ["ponce","pitin"] [50,10]
sala2 = nuevaS "juano" [[10]]