method add_drop d f  =
    drop_list := (d,f) :: !drop_list ;