Haircut solutions

Haircut was solved using Visual Basic by 4 contestants. Solution sizes: average 5236 bytes (shortest: 442; longest: 17021).