implement binary heap insertion with haskell (part 1)

How to implement binary heap insertion with haskell ... https://www.youtube.com/watch?v=2uWbUd-sEgM