Crossing the Road solutions

Crossing the Road was solved using Haskell by 2 contestants. Solution sizes: average 2987 bytes (shortest: 2611; longest: 3740).