Grains exercise for Common Lisp