A Wrapper

ExtractMovieTimes

Tuples := {}

While P not empty do:

Skip forward to <B>

Title := ExtractTextUntilNext( </B> )

Skip forward to <I>

Time := ExtractTextUntilNext( </I> )

Push (Title, Time) onto Tuples

Return Tuples