Ample Syrup solutions

Ample Syrup was solved using Lisp by 2 contestants. Solution sizes: average 1487 bytes (shortest: 1130; longest: 1666).