test.hs

{-# LANGUAGE MagicHash #-}
{-# LANGUAGE UnboxedTuples #-}
{-# OPTIONS_GHC -Wall -O2 -fforce-recomp -ddump-to-file -ddump-simpl -ddump-stg -ddump-cmm-raw -ddump-asm #-}

import GHC.Exts
import GHC.Types

main :: IO ()
main = do
  r <-
    IO $ \s0 ->
      case newByteArray# 8# s0 of
        (# s1, mba #) ->
          case writeInt8Array# mba 0# 255# s1 of
            s2 ->
              case unsafeFreezeByteArray# mba s2 of
                (# s10, ba #) -> (# s10, I# (indexInt8Array# ba 0#) #)
  print r