getEpochTime :: [String] -> Maybe Int
getEpochTime s = do
   elm <- find (isPrefixOf "Epoch Timestamp:") s
   elm' <- stripPrefix "Epoch Timestamp:" elm
   return (read elm' :: Int)
getEpochTime :: [String] -> Maybe Int
getEpochTime s = do
   elm <- find (isPrefixOf "Epoch Timestamp:") s
   elm' <- stripPrefix "Epoch Timestamp:" elm
   return (read elm' :: Int)
getEpochTime s = do
   elm <- find (isPrefixOf "Epoch Timestamp:") s
   elm' <- stripPrefix "Epoch Timestamp:" elm
   return (read elm' :: Int)