Is there an easy way or a command to produce corner undercuts like this?

Required in many cases to put a square punch in a punch holder.

John