Right(1 .. Right'Last) := List(RightBound .. List'Last);
Put(List(RightBound));
Put(Right(1));