Haskell video conversion script