Something

system datesEnclosingMonthOf: Core.Date today do: [:startDate :endDate |
	query := Query returningManyOf: Stock where: [:stk |
		stk insiderTrades anySatisfy: [:trade |
			trade date >= startDate 
			AND: trade date < endDate 
			AND: trade transactionType ='P'
			AND: trade highRanking = 'T']].
	query retrieve: [:stk | stk countStar].
	system session execute: query]