https://github.com/abesto/hs-snakelike