Procedure queen implemented