Text.Parsec many parser won't fully parse a custom parser

Question

I\'m trying to parse and execute a program like the following:

x := 1
y := 5

Do (x < 10)->
             x := x + 1
Od

print(x)

A prog