Create a new channel as a copy of main.
Rename main to:
Delete main? This cannot be undone.
import Data.List fuel :: Integer -> Integer fuel m = (m `div` 3) - 2 main = getContents >>= print . sum . map (fuel . read) . words