Inspired by @Saskia Freeke and Harold Hausman
Source code: http://community.wolfram.com/groups/-/m/t/1152974
