MPEG motion vectors on haskell... well kinda...