Fix segment construction

This does the trick. Forgot about the List.rev in Parser.