Added union procedure

EZ