accounting([sales,receipts,bankloan],[1,-1,0]). %% Income Statement

accounting([A,A,A],[A,A,A]). %% Returns whether an account is in a statement