sub multiDimInit {
    my( $value, $dim ) = ( shift, shift );
    return ($value) x $dim unless @_;
    return map [multiDimInit( $value, @_ )], 1 .. $dim;
}