algorithm - How to output an Integer array in Haskell using ByteString? -

my sample code define , fill output (integer) ioarray:

{-# options_ghc -o2 #-} {-# language bangpatterns #-}  import data.array import data.array.io  for_ xs f =  mapm_ f xs  a_size = 10000 :: int  main :: io() main =        <- newarray (0,a_size-1) 1 :: io (ioarray int integer)       for_ [3,4..(a_size-1)] $ \i -> -- generate array          t1 <- readarray (i-3)          t2 <- readarray (i-2)          t3 <- readarray (i-1)          writearray (4*t1+t2+2*t3)       for_ [0,1..(a_size-1)] $ \i -> -- print terms of array          temp <- readarray          print(temp)       return() 

obviously real code longer compute (another) 'a' integer array. speedup output section using bytestring, don't know how it.