part1 = sum . map fuelRequired
part2 :: [Int] -> Int
-part2= sum . map fuelForFuel
+part2 = sum . map fuelForFuel
fuelRequired :: Int -> Int
fuelRequired m = (m `div` 3) - 2
fuelForFuel :: Int -> Int
-fuelForFuel m = sum $ takeWhile (> 0) $ drop 1 $ iterate fuelRequired m
+fuelForFuel = sum . takeWhile (> 0) . drop 1 . iterate fuelRequired
-- Parse the input file