Plan 9 from Bell Labs’s /usr/web/sources/contrib/fernan/nhc98/src/prelude/Ix/_TupleIndex.hs
module Ix where import CIx _tupleIndex :: (Ix a) => a -> a -> a -> Int -> Int _tupleIndex l u i z = index (l,u) i + rangeSize (l,u) * z
