Completed perl5/grains (Grains of Wheat on a Chess Board)