MvPages

wd=peripheral.wrap("right")
while true do
  book1=false
  book2=false
  book3=false
  book4=false
  l=15
  if wd.getAllStacks()[5] ~= nil then
    for p=1,wd.getNotebookSize(1),1 do
      wd.pushNotebookPage(1,"up",p,p)
    end
    book1=true
  end
  if wd.getAllStacks()[6] ~= nil then
    for p=1,wd.getNotebookSize(2),1 do
      wd.pushNotebookPage(2,"up",p,p+15)
    end
    book2=true
  end
  if wd.getAllStacks()[7] ~= nil then
    for p=1,wd.getNotebookSize(3),1 do
      wd.pushNotebookPage(3,"up",p,p+30)
    end
    book3=true
  end
  if wd.getAllStacks()[8] ~= nil then
    for p=1,wd.getNotebookSize(4),1 do
      wd.pushNotebookPage(4,"up",p,p+45)
    end
    book4=true
  end
  sleep(2)
  if book1 then
    wd.destroyStack(5)
  end
  if book2 then
    wd.destroyStack(6)
  end
  if book3 then
    wd.destroyStack(7)
  end
  if book4 then
    wd.destroyStack(8)
  end
end