finally made it!

This should be the final version; tested it with
b$set(matrix(c(4,3,3,2),2,2))