https://blog.firedrake.org/archive/2021/08/Perl_Weekly_Challenge_124__War_Day.html