Вложенные манипуляции в системе Mathematica

Пожалуйста, подумайте:

Function[subID, 
         pointSO[subID] = RandomInteger[{1, 4}, {5, 2}]] /@ {"subA", "subB"};

Manipulate[
           Manipulate[
                      Graphics[{
                                Black, Rectangle[{0, 0}, {5, 5}],
                                White,Point@pointSO[subID][[i]]
                               },
                               ImageSize -> {400, 300}], 
           {i,Range[Length@pointSO[subID]]}], 
{subID, {"subA", "subB"}}]

При условии, что pointSO[subID] действительно приводит к спискам разной длины, есть ли способ избежать 2 Manipulate, учитывая, что одна из управляющих переменных зависит от другой?