Implement ascii/utf8 wrap function

[Hejsil]

This function takes a predicate and returns a parser that succeeds if the predicate succeeds