</style>
EOT
});
+if (my $gridsize = $get{grid}) {
+ printf "<style>#quiz {grid: repeat(%d, 1fr) / repeat(%d, 1fr)}</style>",
+ reverse split /\D+/, $gridsize;
+ say '';
+}
say '<h1>memory</h1><p id="quiz"></p>';
say "<script>new WordMemory('/$wordlistbase.json')</script>";