Make it Smooth solutions

Make it Smooth was solved using Haskell by 2 contestants. Solution sizes: average 1000 bytes (shortest: 964; longest: 1015).