heapFromArray :: UArray Int Word -> IO a
heapFromArray (UArray 0 hi size bArr# ) 
    = IO (\s -> case deserialize# bArr# s of
                  (# s', newData #) -> (# s', newData #))
heapFromArray :: UArray Int Word -> IO a
heapFromArray (UArray 0 hi size bArr# ) 
    = IO (\s -> case deserialize# bArr# s of
                  (# s', newData #) -> (# s', newData #))
heapFromArray (UArray 0 hi size bArr# ) 
    = IO (\s -> case deserialize# bArr# s of
                  (# s', newData #) -> (# s', newData #))