master :: (DSL repr) => repr (RMulti -> Int -> Process repr ())
master = lam $ \r -> lam $ \n ->
   do myPid <- self
      ps <- spawnMany r n (app pingServer myPid)
      doMany "loop_0" ps (lam $ \_ -> do (_ :: repr ())  <- recv
                                         return tt)
      return tt
master :: (DSL repr) => repr (RMulti -> Int -> Process repr ())
master = lam $ \r -> lam $ \n ->
   do myPid <- self
      ps <- spawnMany r n (app pingServer myPid)
      doMany "loop_0" ps (lam $ \_ -> do (_ :: repr ())  <- recv
                                         return tt)
      return tt
master = lam $ \r -> lam $ \n ->
   do myPid <- self
      ps <- spawnMany r n (app pingServer myPid)
      doMany "loop_0" ps (lam $ \_ -> do (_ :: repr ())  <- recv
                                         return tt)
      return tt