Li-Fan Chen says to YSITD
tag_to_sec x = sum . map (\(x,y) -> x * (60 ** y) ) $ zip v1 [1..] where v1 = reverse . splitOn [":"] $ x