A Digging Problem solutions

A Digging Problem was solved using Haskell by 3 contestants. Solution sizes: average 2515 bytes (shortest: 1939; longest: 3132).