anchor.diff:      with Noparse ->
           [],input
   
  -let (>>) prs treatment input =
  +let (|>>) prs treatment input =
       let result,rest = prs input
       treatment result, rest
   
  
positive.code:     | (Ident n as tok) ->
          if is_reserved_word n then Resword(n) else tok
      | t -> t
    let stringof p = atleast 1 p >> end_itlist (^)
    let simple_ident = stringof(some isalnum) <|> stringof(some issymb)
    let undertail = stringof (a "_") .>>. possibly simple_ident >> collect
    let ident = (undertail <|> simple_ident) .>>. many undertail >> collect
    let septok = stringof(some issep)
    let escapecode i =
      match i with
  
negative.code: 
  let rec atleast n prs i =
      (if n <= 0 then many prs
       else prs .>>. atleast (n - 1) prs |>> (fun (h,t) -> h :: t)) i
  
  let finished input =
      if input = [] then 0, input
  