#Mathematica, 107 bytes   

    Uncompress@"1:eJxTTMoP8ixgYmAwH8TAkLrAAgqQWYbYGFDVGCxkBh5lCDNwWIqqDCyGrAGDhWEpFmXY3IaiDItPqQqMiQMA+yaAoA=="
<br>
<a href="https://tio.run/##BcHRCoIwFADQXxFfe4oIJBh423IZGROstccpU4dN3RyoX7/OMdL3ykivGxnaCEXhPTaTmZ1aljQ@XtRjq6piYoneOmFgvScVDE8H0NmSi1rQjHwo3oZrf/5h8lp5bi3BO3VASc9vc2a@4pRLTXLPbGkLXRZw2CVMgFAcmNOjj9I2/AE" title="Wolfram Language (Mathematica) – Try It Online">Try it online!</a>