I really like this solution: https://www.cs.otago.ac.nz/staffpriv/ok/santa/index.htm