hpaste

import Data.Word 
import Data.Array.IO 
import Data.Array 
import Data.Int 
 
main = do 
    a <- newArray_ (0, 2^32-1) :: IO (IOUArray Int Word8) 
    print =<< a `readArray` (2^32-1) 
    return ()