-- This example demonstrates using of polymorphic boxed arrays
-- This code provided by Peter Arrenbrecht <peter.arrenbrecht@gmail.com>
module Cube( Cube(..) )
where

import Data.ArrayBZ.Array

data (Ord k, IArray UArray k, IArray UArray v) =>
        Cube k v
        = Empty
        | Values (UArray Int k) (UArray Int v)
        | Subs (UArray Int k) (Array Int (Cube k v))

        deriving (Show, Eq)