anchor.diff:              | TotalCost of Amount
               | UnitCost of Amount
   
  -        type TransactionHeader = {
  -            Date: System.DateTime;
  -            Status: Status;
  -            Code: string option;
  -            Description: string;
  -            Comment: string option
  -        }
  -
  -        type TransactionEntry = {
  +        type ASTEntry = {
               Account: string;
               EntryType: EntryType;
               Amount: Amount option;
  
positive.code: 
          type ASTNode =
              | Comment of string
              | Transaction of TransactionHeader * ASTNode list
              | Entry of TransactionEntry
  
  
      
  
negative.code:     module private PostProcess =
          open AST
  
          /// Transforms the AST data structure into a list of (Header, ASTEntry list) tuples
          /// Basically, we're dropping all the comment nodes
          let transformASTToTransactions ast =
              let transactionFilter (node: ASTNode) =
  