method virtual add_drop :
         common -> ( common -> common -> unit ) -> unit