[Ada] GNAT.Expect (Expect_Internal): Try to call 'poll' few times