Array0

module Array0 where

data Array e

foreign import ohc "(E->E)"    listArray :: [e] -> Array e
foreign import ohc "(E->B)"    arraySize :: Array e -> Int
foreign import ohc "(E->B->E)" (!)       :: Array e -> Int -> e