Experiment with the mapping parser

*MyParser> let p = mapParser character toUpper in parse p "abc"
Just ("bc",'A')
*MyParser> let p = mapParser character toUpper in parse p ""
Nothing