Plan 9 from Bell Labs’s /usr/web/sources/contrib/fernan/nhc98/src/prelude/Array/Bounds.hs
module Array where import Ix import DArray bounds :: (Ix a) => Array a b -> (a,a) bounds (MkArray b _) = b