content: module XXXX where 
  
  -- ##############################################
  -- ## Imports                                  ##
  -- ##############################################
  
  
  -- ##############################################
  -- ## Definiciones de datos, tipos y clases    ##
  -- ############################################## 
  
  
  
  -- ##############################################
  -- ## Función main                             ##
  -- ##############################################
  
    main = do
     contents <- (readFile "Input4.txt")
     let lin = lines contents
  
     putStrLn $ show $ part1 lin
     putStrLn "--------"
     putStrLn $ show $ part2 lin 
    
  -- ##############################################
  -- ## Funciones de la 1º parte                 ##
  -- ##############################################
  
  
  
  -- ##############################################
  -- ## Funciones de la 2º parte                 ##
  -- ##############################################
  
  
  
  -- ##############################################
  -- ## Funciones generales                      ##
  -- ##############################################
  
  