ap = insert (2 :: Int)
      (insert 1
      (insert 0
      (insert 3 Empty)))


heap = insert (2 :: Int)
      (insert 1
      (insert 0
      (insert 3 Empty)))
heap = insert (2 :: Int)
      (insert 1
      (insert 0
      (insert 3 Empty)))