splitlist IS OPERATION A ( tell (tally A + 1) EACHLEFT [take,drop] A )