Haircut solutions

Haircut was solved using Lisp by 4 contestants. Solution sizes: average 2836 bytes (shortest: 1044; longest: 10952).

914.

zeptometer (S, L) (1044 B)
1011.

malisper (S, L) (1272 B)
2627.

Carlitos (S) (1432 B)
2650.

vii (S) (10952 B)