diff --git a/hledger/Hledger/Cli/Commands/Incomestatement.hs b/hledger/Hledger/Cli/Commands/Incomestatement.hs
index 5c8d57bc6..5aec7feed 100644
--- a/hledger/Hledger/Cli/Commands/Incomestatement.hs
+++ b/hledger/Hledger/Cli/Commands/Incomestatement.hs
@@ -43,3 +43,20 @@ incomestatementmode = compoundBalanceCommandMode incomestatementSpec
 
 incomestatement :: CliOpts -> Journal -> IO ()
 incomestatement = compoundBalanceCommand incomestatementSpec
+{- 
+Summary of code flow, 2021-11:
+
+incomestatement
+ compoundBalanceCommand
+  compoundBalanceReport
+   compoundBalanceReportWith
+    colps = getPostingsByColumn
+    startps = startingPostings
+    generateSubreport
+     startbals = startingBalances (startps restricted to this subreport)
+     generateMultiBalanceReport startbals (colps restricted to this subreport)
+      matrix = calculateReportMatrix startbals colps
+      displaynames = displayedAccounts
+      buildReportRows displaynames matrix
+ -}
+ 
\ No newline at end of file