anchor.diff:          many1 (
               pipe2ws parseCommand
                       // ^- <command> ...
  -                    (parseViewLine .>> ws)
  +                    parseViewLine
                       // ^-           ... <view-line>
                       (fun c v -> { Command = c; Post = v })
           )
  
positive.code:     /// Parser for skipping ONE or more whitespace characters.
      let ws1 = many1Chars wsc
  
      /// As pipe2, but with automatic whitespace parsing between the parsers.
      let pipe2ws x y f = pipe2 (x .>> ws) y f
  
      /// As pipe3, but with automatic whitespace parsing between the parsers.
      let pipe3ws x y z f = pipe3 (x .>> ws) (y .>> ws) z f
  
      // Special characters.
  
  
negative.code:                     // ^- <identifier> ...
                      parseParamList
                      // ^-              ... <arg-list> ...
                      parseBlock
                      // ^-                             ... <block>
                      (fun n ps b -> { Name = n; Params = ps; Body = b })
  
  