my role Array::Shaped3 does Array::Shaped {
    multi method AT-POS(::?CLASS:D: uint $one, uint $two, uint $three) is raw {
        nqp::ifnull(
          nqp::atpos3d(nqp::getattr(self,List,'$!reified'),$one,$two,$three),
          AT-POS-CONTAINER(self, $one, $two, $three)
        )
    }
    multi method AT-POS(::?CLASS:D:
      Int:D $one, Int:D $two, Int:D $three
    ) is raw {
        nqp::ifnull(
          nqp::atpos3d(nqp::getattr(self,List,'$!reified'),$one,$two,$three),
          AT-POS-CONTAINER(self, $one, $two, $three)
        )
    }
    sub AT-POS-CONTAINER(\array, uint $one, uint $two, uint $three) is raw {
        nqp::p6scalarfromdesc(
          ContainerDescriptor::BindArrayPos3D.new(
            nqp::getattr(array,Array,'$!descriptor'),
            nqp::getattr(array,List,'$!reified'),
            $one, $two, $three
          )
        )
    }

    multi method ASSIGN-POS(::?CLASS:D:
      uint $one, uint $two, uint $three, \value
    ) {
        my \reified := nqp::getattr(self,List,'$!reified');
        nqp::ifnull(
          nqp::atpos3d(reified,$one,$two,$three),
          nqp::bindpos3d(reified,$one,$two,$three,
            nqp::p6scalarfromdesc(nqp::getattr(self,Array,'$!descriptor')))
        ) = value
    }
    multi method ASSIGN-POS(::?CLASS:D:
      Int:D $one, Int:D $two, Int:D $three, \value
    ) {
        my \reified := nqp::getattr(self,List,'$!reified');
        nqp::ifnull(
          nqp::atpos3d(reified,$one,$two,$three),
          nqp::bindpos3d(reified,$one,$two,$three,
            nqp::p6scalarfromdesc(nqp::getattr(self,Array,'$!descriptor')))
        ) = value
    }

    multi method EXISTS-POS(::?CLASS:D:
      uint $one, uint $two, uint $three
    --> Bool:D) {
        my \reified := nqp::getattr(self,List,'$!reified');
        my \dims := nqp::dimensions(reified);
        nqp::hllbool(
          nqp::islt_i($one,nqp::atpos_i(dims,0))
            && nqp::islt_i($two,nqp::atpos_i(dims,1))
              && nqp::islt_i($three,nqp::atpos_i(dims,2))
                && nqp::not_i(
                     nqp::isnull(nqp::atpos3d(reified,$one,$two,$three))
                   )
        )
    }
    multi method EXISTS-POS(::?CLASS:D:
      Int:D $one, Int:D $two, Int:D $three
    --> Bool:D) {
        my \reified := nqp::getattr(self,List,'$!reified');
        my \dims := nqp::dimensions(reified);
        nqp::hllbool(
          nqp::islt_i($one,nqp::atpos_i(dims,0))
            && nqp::islt_i($two,nqp::atpos_i(dims,1))
              && nqp::islt_i($three,nqp::atpos_i(dims,2))
                && nqp::not_i(
                     nqp::isnull(nqp::atpos3d(reified,$one,$two,$three))
                   )
        )
    }

    multi method DELETE-POS(::?CLASS:D:
      uint $one, uint $two, uint $three
    ) is raw {
        my \reified := nqp::getattr(self,List,'$!reified');
        nqp::if(
          nqp::isnull(my \value := nqp::atpos3d(reified,$one,$two,$three)),
          Nil,
          nqp::stmts(
            nqp::bindpos3d(reified,$one,$two,$three,nqp::null),
            value
          )
        )
    }
    multi method DELETE-POS(::?CLASS:D:
      Int:D $one, Int:D $two, Int:D $three
    ) is raw {
        my \reified := nqp::getattr(self,List,'$!reified');
        nqp::if(
          nqp::isnull(my \value := nqp::atpos3d(reified,$one,$two,$three)),
          Nil,
          nqp::stmts(
            nqp::bindpos3d(reified,$one,$two,$three,nqp::null),
            value
          )
        )
    }

    multi method BIND-POS(::?CLASS:D:
        uint $one, uint $two, uint $three, \value
    ) {
        nqp::bindpos3d(
          nqp::getattr(self,List,'$!reified'),$one,$two,$three,value
        )
    }
    multi method BIND-POS(::?CLASS:D:
      Int:D $one, Int:D $two, Int:D $three, \value
    ) {
        nqp::bindpos3d(
          nqp::getattr(self,List,'$!reified'),$one,$two,$three,value
        )
    }
}

# vim: expandtab shiftwidth=4