f:{grid:+x#<<a,'(!#a)*- 2!a:+/!x,:x
   padded:(-#$-1+*/x)$$grid
   `0:" "/'padded}
f 5