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