let serve callback arg = ignore (Thread.create callback arg)