++submatrix returns the wrong shape

```
> (submatrix:la:la ~[`[[`0 `0]] `[[`2 `2]]] (ones:la:la [~[4 4] 5 %i754 ~]))
[meta=[shape=~[4 1] bloq=5 kind=%i754 fxp=~] data=0x1.3f80.0000.3f80.0000.3f80.0000.3f80.0000]
```