let join ip status =
    ignore (S.update ip [] (fun old -> merge old status))