module Main where

import Lib

main :: IO ()
main = do
  inputStr <- readFile "input.txt"
  let input = lines $ init inputStr
      -- answer1 = firstReceivedSound input
      answer2 = howManyDidP1Send input
   in print answer2