uncubicalSquares=: {. squares@<.@p.~&3 1.1 -. cubes