M: minlist remove-border ( minlist -- )
    max>> remove ;