https://blog.firedrake.org/archive/2020/07/Perl_Weekly_Challenge_69__invertible_numbers_and_very_long_strings.html