Parser.pick
: (Parser Char)
= λcode
  use P = λx (Parser.Result Char)
  use cons = λhead λtail (Parser.Result.done Char tail head)
  use nil = (Parser.Result.fail Char "empty")
  (~code P cons nil)