This would be cool to model in lisp.
https://www.youtube.com/watch?v=43KRqMoVM1I