_ putStrLn ∘ addSubTitles ∘ (modifyLines False) ∘ drop 1 ∘ lines

main ∷ IO ()
main = getContents >>= mapM_ putStrLn ∘ addSubTitles ∘ (modifyLines False) ∘ drop 1 ∘ lines
main = getContents >>= mapM_ putStrLn ∘ addSubTitles ∘ (modifyLines False) ∘ drop 1 ∘ lines