def run[A](p: Parser[A])(s:String):(A, String)=p(s)

run(pchar('a'))("abraca")==('a',"braca")

def pure[A](a:A):Parser[A]=???
def map[A,B](fa:Parser[A])(f:A=>B):Parser[B]=???
def flatMap[A,B](pa:Parser[A])(f:A=>Parser[B]):Parser[B]=???
def map2[A,B,C](pa:Parser[A],pb:Parser[B])(f:(A,B)=>C):Parser[C]=???