episode' :: [MediaType] -> Maybe Int
episode' (x:xs) = case x of
    (EpisodeNo a) -> Just a
    _ -> episode' xs
episode' :: [MediaType] -> Maybe Int
episode' (x:xs) = case x of
    (EpisodeNo a) -> Just a
    _ -> episode' xs
episode' (x:xs) = case x of
    (EpisodeNo a) -> Just a
    _ -> episode' xs